[GRAPH] Distances

src/Gargantext/Viz/Graph/Distances.hs

@@ -17,9 +17,16 @@ module Gargantext.Viz.Graph.Distances
   where
 
 
+import Data.Array.Accelerate
+import Gargantext.Viz.Graph.Distances.Matrice (measureConditional, distributional)
 
+data Distance = Conditional | Distributional
 
 
+measure :: Distance -> Matrix Int -> Matrix Double
+measure Conditional    = measureConditional
+measure Distributional = distributional
+
 
 
 

src/Gargantext/Viz/Graph/Distances/Conditional.hs

@@ -120,12 +120,13 @@ conditional m = filterMat (threshold m') m'
                 (length nodes_kept) 
                 (\(i,j) -> getElem ((M.!) dico_nodes i) ((M.!) dico_nodes j) x')
 
-    threshold m'' = V.minimum $ V.map (\cId -> V.maximum $ getCol cId m'') (V.enumFromTo 1 (nOf Col m''))
+    threshold m'' = V.minimum
+                  $ V.map (\cId -> V.maximum $ getCol cId m'')
+                          (V.enumFromTo 1 (nOf Col m'')      )
 
     filterMat t m''  = mapAll (\x -> filter' t x) m''
       where
         filter' t' x = case (x >= t') of
                         True  -> x
                         False -> 0
-
 ------------------------------------------------------------------------

src/Gargantext/Viz/Graph/Tools.hs

@@ -26,7 +26,7 @@ import Gargantext.Prelude
 import Gargantext.Core.Statistics
 import Gargantext.Viz.Graph
 import Gargantext.Viz.Graph.Bridgeness (bridgeness)
-import Gargantext.Viz.Graph.Distances.Matrice (measureConditional)
+import Gargantext.Viz.Graph.Distances (Distance(..), measure)
 import Gargantext.Viz.Graph.Index (createIndices, toIndex, map2mat, mat2map, Index)
 import Gargantext.Viz.Graph.IGraph (mkGraphUfromEdges)
 import Gargantext.Viz.Graph.Proxemy (confluence)
@@ -48,7 +48,7 @@ cooc2graph' threshold myCooc = distanceMap
     (ti, _) = createIndices myCooc
     myCooc' = toIndex ti myCooc
     matCooc = map2mat 0 (Map.size ti) $ Map.filter (> 1) myCooc'
-    distanceMat = measureConditional matCooc
+    distanceMat = measure Conditional matCooc
     distanceMap = Map.filter (> threshold) $ mat2map distanceMat
 
 
@@ -60,7 +60,7 @@ cooc2graph threshold myCooc = do
     (ti, _) = createIndices myCooc
     myCooc' = toIndex ti myCooc
     matCooc = map2mat 0 (Map.size ti) $ Map.filter (> 1) myCooc'
-    distanceMat = measureConditional matCooc
+    distanceMat = measure Conditional matCooc
     distanceMap = Map.filter (> threshold) $ mat2map distanceMat
 
     nodesApprox :: Int