working on a new distance in phylo

15624ac2 · david Chavalarias · ec76f8f5 · 15624ac2
Commit 15624ac2 authored Jan 21, 2021 by david Chavalarias
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

SynchronicClustering.hs src/Gargantext/Core/Viz/Phylo/SynchronicClustering.hs +4 -0

No files found.
--- a/src/Gargantext/Core/Viz/Phylo/SynchronicClustering.hs
+++ b/src/Gargantext/Core/Viz/Phylo/SynchronicClustering.hs
@@ -137,6 +137,10 @@ groupsToEdges prox sync nbDocs diago groups =
                WeightedLogJaccard _ -> map (\(g,g') -> 
                                                     ((g,g'), weightedLogJaccard' (1 / sens) nbDocs diago
                                                                  (g ^. phylo_groupNgrams) (g' ^. phylo_groupNgrams))) edges
+                WeightedLogSim _ -> map (\(g,g') -> 
+                                                     ((g,g'), weightedLogJaccard' (1 / sens) nbDocs diago
+                                                                  (g ^. phylo_groupNgrams) (g' ^. phylo_groupNgrams))) edges
+                
                _ -> undefined  

 toParentId :: PhyloGroup -> PhyloGroupId