Skip to content

haskell-gargantext
haskell-gargantext
Commit 6ac69d0c authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] Louvain parameter

parent 3c365a26
Pipeline #1399 failed with stage
    Show whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 2 deletions
    src/Gargantext/Core/Viz/Graph/Tools.hs
    View file @ 6ac69d0c
    ...@@ -77,13 +77,13 @@ cooc2graph distance threshold myCooc = do ...@@ -77,13 +77,13 @@ cooc2graph distance threshold myCooc = do
    where where
    (as, bs) = List.unzip $ Map.keys distanceMap (as, bs) = List.unzip $ Map.keys distanceMap
    n' = Set.size $ Set.fromList $ as <> bs n' = Set.size $ Set.fromList $ as <> bs
    ClustersParams rivers level = clustersParams nodesApprox ClustersParams rivers _level = clustersParams nodesApprox
    partitions <- if (Map.size distanceMap > 0) partitions <- if (Map.size distanceMap > 0)
    -- then iLouvainMap 100 10 distanceMap -- then iLouvainMap 100 10 distanceMap
    -- then hLouvain distanceMap -- then hLouvain distanceMap
    then cLouvain level distanceMap then cLouvain "1" distanceMap
    else panic "Text.Flow: DistanceMap is empty" else panic "Text.Flow: DistanceMap is empty"
    let let
    ......
    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