math.similarity: fix tests, not sure this is the correct definition.

diff --git a/extra/math/similarity/similarity.factor b/extra/math/similarity/similarity.factor
index a8ae722282f70c8b68166a274bc91dec012a759a..b1f78569c0a5f484e0eb60c025b8894d932c6b43 100644 (file)
--- a/extra/math/similarity/similarity.factor
+++ b/extra/math/similarity/similarity.factor
@@ -9,7 +9,7 @@ IN: math.similarity
     v- norm 1 + recip ;
 
 : pearson-similarity ( a b -- n )
-    over length 3 < [ 2drop 1.0 ] [ corr 0.5 * 0.5 + ] if ;
+    over length 3 < [ 2drop 1.0 ] [ full-corr 0.5 * 0.5 + ] if ;
 
 : cosine-similarity ( a b -- n )
     [ v* sum ] [ [ norm ] bi@ * ] 2bi / 0.5 * 0.5 + ;