Merge branch 'dev' of ssh://gitlab.iscpif.fr:20022/gargantext/haskell-gargantext...
[gargantext.git] / src / Gargantext / Viz / Graph / Distances / Matrice.hs
index d194e755f223d1d198ec65a428bfa1d3425ef2d6..2400465251240a0be0888e2c72f842a9274d9db7 100644 (file)
@@ -284,11 +284,11 @@ incExcSpeGen m = (run' inclusionExclusion m, run' specificityGenericity m)
 
     -- | Inclusion (i) = Gen(i)+Spec(i)
     inclusionExclusion :: Acc (Matrix Double) -> Acc (Vector Double)
-    inclusionExclusion mat = zipWith (+) (pV mat) (pH mat)
+    inclusionExclusion mat = zipWith (+) (pV mat) (pV mat)
     
     -- | Genericity score = Gen(i)- Spec(i)
     specificityGenericity :: Acc (Matrix Double) -> Acc (Vector Double)
-    specificityGenericity mat = zipWith (-) (pV mat) (pH mat)
+    specificityGenericity mat = zipWith (+) (pH mat) (pH mat)
     
     -- | Gen(i)  : 1/(N-1)*Sum(j!=i, P(i|j)) : Genericity  of i
     pV :: Acc (Matrix Double) -> Acc (Vector Double)