fix synchrony

81bdf980 · qlobbe · ec76f8f5 · 81bdf980 · 81bdf980
Commit 81bdf980 authored Jan 20, 2021 by qlobbe
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

PhyloExample.hs src/Gargantext/Core/Viz/Phylo/PhyloExample.hs +1 -1

SynchronicClustering.hs src/Gargantext/Core/Viz/Phylo/SynchronicClustering.hs +1 -1

No files found.
--- a/src/Gargantext/Core/Viz/Phylo/PhyloExample.hs
+++ b/src/Gargantext/Core/Viz/Phylo/PhyloExample.hs
@@ -104,7 +104,7 @@ config =
    defaultConfig { phyloName  = "Cesar et Cleopatre"
                  , phyloLevel = 2
                  , exportFilter = [ByBranchSize 0]
-                  , clique = MaxClique 0 3 ByNeighbours }
+                  , clique = MaxClique 0 15 ByNeighbours }


 docs :: [Document]

--- a/src/Gargantext/Core/Viz/Phylo/SynchronicClustering.hs
+++ b/src/Gargantext/Core/Viz/Phylo/SynchronicClustering.hs
@@ -135,7 +135,7 @@ groupsToEdges prox sync nbDocs diago groups =
        toEdges sens edges = 
            case prox of
                WeightedLogJaccard _ -> map (\(g,g') -> 
-                                                     ((g,g'), weightedLogJaccard' (1 / sens) nbDocs diago
+                                                     ((g,g'), weightedLogJaccard' (sens) nbDocs diago
                                                                  (g ^. phylo_groupNgrams) (g' ^. phylo_groupNgrams))) edges
                _ -> undefined