          :centroids (rvec-seq-sort new-means )
          ;:old-centroids means
          :iterations iterations
-         ;:distance mean-distance
+         :distance mean-distance
          }
         (recur (inc iterations)
                new-means))))))

    num
    (unchecked-negate num)))

(defn csv-to-matrix
  [path]
  (map #(seq (clojure.string/split % #", "))
       (clojure.string/split-lines (slurp path))))

(defn nest-seq-to-csv
  [seq path]

      (if (= stop iteration)
        theta
        (recur (inc iteration)
               (matrix-mult (transpose x) 
                            (sub y 
                                 (matrix-pmap sigmoid 
                                             (matrix-mult x 
                                                          theta
                                                          )))))))))


