[FIX] warnings
[gargantext.git] / src / Gargantext / Core / Viz / AdaptativePhylo.hs
index e118cab5bfa8435df1a0c773342c535f8fb34fb6..354b94b593332e30be4f1d4fa02454cf7845a664 100644 (file)
@@ -148,7 +148,7 @@ defaultConfig =
             , phyloQuality   = Quality 100 1
             , timeUnit       = Year 3 1 5
             , clique         = MaxClique 0
-            , exportLabel    = [BranchLabel MostInclusive 2, GroupLabel MostEmergentInclusive 2]
+            , exportLabel    = [BranchLabel MostEmergentTfIdf 2, GroupLabel MostEmergentInclusive 2]
             , exportSort     = ByHierarchy
             , exportFilter   = [ByBranchSize 2]  
             }
@@ -262,14 +262,15 @@ type Cooc =  Map (Int,Int) Double
 --  param : the parameters of the phylomemy (with the user's configuration)
 --  periods : the temporal steps of a phylomemy
 data Phylo =
-     Phylo { _phylo_foundations :: PhyloFoundations
-           , _phylo_timeCooc    :: !(Map Date Cooc)
-           , _phylo_timeDocs    :: !(Map Date Double)
-           , _phylo_termFreq    :: !(Map Int Double)
-           , _phylo_horizon     :: !(Map (PhyloGroupId,PhyloGroupId) Double)           
-           , _phylo_groupsProxi :: !(Map (PhyloGroupId,PhyloGroupId) Double)
-           , _phylo_param       :: PhyloParam
-           , _phylo_periods     :: Map PhyloPeriodId PhyloPeriod
+     Phylo { _phylo_foundations  :: PhyloFoundations
+           , _phylo_timeCooc     :: !(Map Date Cooc)
+           , _phylo_timeDocs     :: !(Map Date Double)
+           , _phylo_termFreq     :: !(Map Int Double)
+           , _phylo_lastTermFreq :: !(Map Int Double)           
+           , _phylo_horizon      :: !(Map (PhyloGroupId,PhyloGroupId) Double)           
+           , _phylo_groupsProxi  :: !(Map (PhyloGroupId,PhyloGroupId) Double)
+           , _phylo_param        :: PhyloParam
+           , _phylo_periods      :: Map PhyloPeriodId PhyloPeriod
            }
            deriving (Generic, Show, Eq)
 
@@ -367,7 +368,7 @@ data Order = Asc | Desc deriving (Show,Generic,Eq)
 
 data Sort = ByBirthDate { _sort_order :: Order } | ByHierarchy deriving (Show,Generic,Eq)
 
-data Tagger = MostInclusive | MostEmergentInclusive deriving (Show,Generic,Eq)
+data Tagger = MostInclusive | MostEmergentInclusive | MostEmergentTfIdf deriving (Show,Generic,Eq)
 
 data PhyloLabel = 
       BranchLabel