diff --git a/src/Gargantext/Core/Viz/Phylo/PhyloExample.hs b/src/Gargantext/Core/Viz/Phylo/PhyloExample.hs index bca5f7e13cf48fc2403f7c43e89f2edd2f7e4ceb..42da1f9a71e6817d5091a9a53ef6c346ca036720 100644 --- 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] diff --git a/src/Gargantext/Core/Viz/Phylo/SynchronicClustering.hs b/src/Gargantext/Core/Viz/Phylo/SynchronicClustering.hs index 07832bb65da3256a1610ba8be56a6b66aedfb889..2eb56ba0044f03ee2a8f54262e80f3559602b050 100644 --- 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 WeightedLogSim _ -> map (\(g,g') -> ((g,g'), weightedLogJaccard' (1 / sens) nbDocs diago