Skip to content

haskell-gargantext
haskell-gargantext
Commit 49ac7b06 authored by qlobbe's avatar qlobbe
Browse files
Options

in clustering synchronique change to 1 / sensibility

parent a743c42b
Pipeline #1350 canceled with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 2 deletions
    src/Gargantext/Core/Viz/AdaptativePhylo.hs
    View file @ 49ac7b06
    ...@@ -146,7 +146,7 @@ defaultConfig = ...@@ -146,7 +146,7 @@ defaultConfig =
    , phyloProximity = WeightedLogJaccard 10 , phyloProximity = WeightedLogJaccard 10
    , seaElevation = Constante 0.1 0.1 , seaElevation = Constante 0.1 0.1
    , findAncestors = True , findAncestors = True
    , phyloSynchrony = ByProximityThreshold 0.5 10 SiblingBranches MergeAllGroups , phyloSynchrony = ByProximityThreshold 0.2 10 SiblingBranches MergeAllGroups
    , phyloQuality = Quality 0 1 , phyloQuality = Quality 0 1
    , timeUnit = Year 3 1 5 , timeUnit = Year 3 1 5
    , clique = MaxClique 0 , clique = MaxClique 0
    ......
    src/Gargantext/Core/Viz/Phylo/SynchronicClustering.hs
    View file @ 49ac7b06
    ...@@ -135,7 +135,7 @@ groupsToEdges prox sync nbDocs diago groups = ...@@ -135,7 +135,7 @@ groupsToEdges prox sync nbDocs diago groups =
    toEdges sens edges = toEdges sens edges =
    case prox of case prox of
    WeightedLogJaccard _ -> map (\(g,g') -> WeightedLogJaccard _ -> map (\(g,g') ->
    ((g,g'), weightedLogJaccard' sens nbDocs diago ((g,g'), weightedLogJaccard' (1 / sens) nbDocs diago
    (g ^. phylo_groupNgrams) (g' ^. phylo_groupNgrams))) edges (g ^. phylo_groupNgrams) (g' ^. phylo_groupNgrams))) edges
    _ -> undefined _ -> undefined
    ......
    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