Skip to content

haskell-gargantext
haskell-gargantext
Commit 15624ac2 authored by david Chavalarias's avatar david Chavalarias
Browse files
Options

working on a new distance in phylo

parent ec76f8f5
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 0 deletions
src/Gargantext/Core/Viz/Phylo/SynchronicClustering.hs
View file @ 15624ac2
...@@ -137,6 +137,10 @@ groupsToEdges prox sync nbDocs diago groups = ...@@ -137,6 +137,10 @@ groupsToEdges prox sync nbDocs diago groups =
WeightedLogJaccard _ -> map (\(g,g') -> WeightedLogJaccard _ -> map (\(g,g') ->
((g,g'), weightedLogJaccard' (1 / sens) nbDocs diago ((g,g'), weightedLogJaccard' (1 / sens) nbDocs diago
(g ^. phylo_groupNgrams) (g' ^. phylo_groupNgrams))) edges (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 _ -> undefined
toParentId :: PhyloGroup -> PhyloGroupId toParentId :: PhyloGroup -> PhyloGroupId
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment