anchor.diff:                       (log (- 1 (logistic-regression (array-multiply (array-slice X r) theta))))))))
       (print result)
       (/ (- result) (1+ rowNum))))
  -
  -#|
  -(defun compute-cost-2 (X theta y)
  -  (let ((result 0))
  -    (dotimes (r (elt (array-dimensions X) 0)
  -              (/ (- result) (elt (array-dimensions X) 0)))
  -      (print r)
  -      (setf result (+ result
  -                      (+ (* (nth r y)
  -                            (log (logistic-regression (array-multiply (array-slice X r) theta))))
  -                         (* (- 1 (nth r y))
  -                            (log (- 1 (logistic-regression (array-multiply (array-slice X r) theta)))))))))
  -    ))|#
   
   (defun partial-derivative-lr (X theta y)
     "X is a r*c matrix"
  
positive.code:         (miniV))
      (dotimes (i iterTime)
        (let* ((pd (partial-derivative-lr X theta y))
              (p (print i))
              (pp (print pd))
              (temp (compute-cost X theta y)))
          (setf miniV 
                (cond ((= i 0) (setf miniV temp))
  
negative.code: (in-package #:logistic-regression)
  
  (setf *read-default-float-format* 'long-float)
  
  (defun logistic-regression (z)
    "calculate the g(z), when g(z) larger than 0.5, return 1, else return 0"
    (let ((g 0.0l0))
  