add a new trace

src/Gargantext/Viz/AdaptativePhylo.hs

@@ -147,7 +147,7 @@ defaultConfig =
             , phyloSynchrony = ByProximityThreshold 0.5 10 SiblingBranches MergeAllGroups
             , phyloQuality   = Quality 0.1 1
             , timeUnit       = Year 3 1 5
-            , clique         = Fis 1 5
+            , clique         = MaxClique 0
             , exportLabel    = [BranchLabel MostInclusive 2, GroupLabel MostEmergentInclusive 2]
             , exportSort     = ByHierarchy
             , exportFilter   = [ByBranchSize 2]  

src/Gargantext/Viz/Phylo/PhyloExample.hs

@@ -108,7 +108,7 @@ config =
     defaultConfig { phyloName  = "Cesar et Cleopatre"
                   , phyloLevel = 2
                   , exportFilter = [ByBranchSize 0]
-                  , clique = Fis 0 0 }
+                  , clique = MaxClique 0 }
 
 
 docs :: [Document]

src/Gargantext/Viz/Phylo/TemporalMatching.hs

@@ -380,7 +380,8 @@ seaLevelMatching proximity beta minBranch frequency thr step depth elevation fra
     then branches
     else 
       -- | break all the possible branches at the current seaLvl level
-      let branches'  = trace ("↑ level = " <> printf "%.1f" thr <> " branches = " <> show(length branches)) 
+      let quality    = toPhyloQuality beta frequency (map fst branches)
+          branches'  = trace ("↑ level = " <> printf "%.1f" thr <> " F(β) = " <> printf "%.3f" quality <> " branches = " <> show(length branches)) 
                      $ breakBranches proximity beta frequency minBranch thr depth elevation frame docs coocs periods 
                                      [] (head' "seaLevelMatching" branches) (tail' "seaLevelMatching" branches)
           frequency' = reduceFrequency frequency (map fst branches')