@@ -21,7 +21,7 @@ (sqrt (- (sum (map #(square %) y)) (* o (square sum-y)))))] (if (= 0.0 prod-of-sqrts) - 0.0 + nil (/ (- (sum (map #(* %1 %2) x y)) (* o sum-x sum-y)) prod-of-sqrts)))) @@ -45,7 +45,7 @@ ([target others] (closest-vector target others 0)) ([target others n] (let [current (first others) - sim (pearson target current) + sim (or (pearson target current) 0.0) others (rest others)] (if (= 0 (count others)) [sim, n] internal/internal.clj 47442d90b9d9d002437f2af785919bfa55b1fad8 Tyler McMullen tbmcmullen@gmail.com http://github.com/tyler/clojure-cluster/commit/55633a0ad424fa2478dd26908d1f1869fb45ac41 55633a0ad424fa2478dd26908d1f1869fb45ac41 2008-11-07T09:59:34-08:00 2008-11-07T09:59:34-08:00 More correct Pearson. Returns nil if either vector has a slope of 0. 15e3693d9cd4a9245d13b68ad8f9449ea1f6f350 Tyler McMullen tbmcmullen@gmail.com