change beta to 1 / beta

src/Gargantext/Viz/AdaptativePhylo.hs

@@ -145,7 +145,7 @@ defaultConfig =
             , phyloProximity = WeightedLogJaccard 10
             , seaElevation   = Constante 0 0.1
             , phyloSynchrony = ByProximityThreshold 0.5 10 SiblingBranches MergeAllGroups
-            , phyloQuality   = Quality 1 1
+            , phyloQuality   = Quality 0.1 1
             , timeUnit       = Year 3 1 5
             , clique         = Fis 1 5
             , exportLabel    = [BranchLabel MostInclusive 2, GroupLabel MostEmergentInclusive 2]

src/Gargantext/Viz/Phylo/TemporalMatching.hs

@@ -252,8 +252,8 @@ fScore beta x bk bx =
                / (fromIntegral $ length $ filter (\g -> elem x $ g ^. phylo_groupNgrams) $ concat bx))
       accuracy = ( (fromIntegral $ length $ filter (\g -> elem x $ g ^. phylo_groupNgrams) bk)
                  / (fromIntegral $ length bk))
-   in ((1 + beta ** 2) * accuracy * recall)
-    / (((beta ** 2) * accuracy + recall))
+   in ((1 + (1 / beta) ** 2) * accuracy * recall)
+    / ((((1 / beta) ** 2) * accuracy + recall))
 
 
 wk :: [PhyloGroup] -> Double