change from the epique workshop

src/Gargantext/Viz/AdaptativePhylo.hs

@@ -133,8 +133,8 @@ defaultConfig =
             , phyloName      = pack "Default Phylo"
             , phyloLevel     = 2
             , phyloProximity = WeightedLogJaccard 10 0 0.1
-            , phyloSynchrony = ByProximityThreshold 0.2 0 SiblingBranches MergeAllGroups
-            , phyloQuality   = Quality 10 1
+            , phyloSynchrony = ByProximityThreshold 1 0 SiblingBranches MergeAllGroups
+            , phyloQuality   = Quality 1 1
             , timeUnit       = Year 3 1 5
             , clique         = Fis 1 5
             , exportLabel    = [BranchLabel MostInclusive 2, GroupLabel MostEmergentInclusive 2]

src/Gargantext/Viz/Phylo/PhyloExample.hs

@@ -38,6 +38,9 @@ import Data.GraphViz.Types.Generalised (DotGraph)
 
 import qualified Data.Vector as Vector
 
+---------------------------------
+-- | STEP 5 | -- Export the phylo
+---------------------------------
 
 phyloExport :: IO ()
 phyloExport = dotToFile "/home/qlobbe/data/phylo/output/cesar_cleopatre_V2.dot" phyloDot 
@@ -45,6 +48,10 @@ phyloExport = dotToFile "/home/qlobbe/data/phylo/output/cesar_cleopatre_V2.dot"
 phyloDot :: DotGraph DotId
 phyloDot = toPhyloExport phylo2
 
+--------------------------------------------------
+-- | STEP 4 | -- Process the synchronic clustering
+--------------------------------------------------
+
 phylo2 :: Phylo
 phylo2 = synchronicClustering phylo1