, 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]
}
-- 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)
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