Check that correlation isn't on all zero's

data61 · May 6, 2024 · 3876bdb · 3876bdb
1 parent 8a477e6
commit 3876bdb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/Spec.hs b/test/Spec.hs
@@ -169,7 +169,7 @@ main = defaultMain $
                 ]
             , testGroup "Correlation"
                 [ onVec2 "correlation between [-1,1]" $ \vec ->
-                    U.length vec > 2 ==>
+                    U.length vec > 2 && U.any (/= (0.0,0.0)) vec ==>
                     let m1 = F.fold mean (U.toList $ U.map fst vec)
                         m2 = F.fold mean (U.toList $ U.map snd vec)
                         s1 = F.fold (stdDev m1) (U.toList $ U.map fst vec)