anchor.diff:  (defvar *theta*)
   (setf *theta* (make-array 3 :initial-element 0))
   
  -(compute-cost *X* *theta* *y*)
  -(partial-derivative-lr *X* *theta* *y*)
  +;(compute-cost *X* *theta* *y*)
  +;(partial-derivative-lr *X* *theta* *y*)
  
positive.code:         (rowNum (1- (elt (array-dimensions X) 0))))
      (loop for r from 0 to rowNum for temp = (array-slice X r) do
           (progn
             (print (log (logistic-regression (array-multiply temp theta))))
           (setf result
                 (+ result
                    (+ (* (nth r y)
  
negative.code:                (1+ rowNum))))
      result))
  
  
  ;; Sbcl dont have the fminunc function which in matlab, so I need figure out the new
  ;; method to fix that
  ;; the answer is theta = -24.9330 0.2044 0.1996 cost = 0.2035
  (defun gradient-descent-lr (X theta y alpha iterTime)
    "use some functions get mini value"
    (let ((thetaRe)
          (miniV))
      (dotimes (i iterTime)
        (let ((pd (partial-derivative-lr X theta y))
              (temp (compute-cost X theta y)))
          (print i)
          (setf miniV 
                (cond ((= i 0) (setf miniV temp))
                      ((< temp miniV) (setf miniV temp))
  