one 8, e54847.
-}
-{-# LANGUAGE DeriveGeneric, DeriveAnyClass #-}
-{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
module Gargantext.Viz.AdaptativePhylo where
data Proximity =
WeightedLogJaccard
- { _wlj_sensibility :: Double
+ { _wlj_sensibility :: Double
+{-
-- , _wlj_thresholdInit :: Double
-- , _wlj_thresholdStep :: Double
-- | max height for sea level in temporal matching
-- , _wlj_elevation :: Double
+-}
}
| Hamming
deriving (Show,Generic,Eq)
, phyloName = pack "Default Phylo"
, phyloLevel = 2
, phyloProximity = WeightedLogJaccard 10
- , seaElevation = Constante 0 0.1
+ , seaElevation = Constante 0.6 1
, phyloSynchrony = ByProximityThreshold 0.5 10 SiblingBranches MergeAllGroups
- , phyloQuality = Quality 1 1
+ , phyloQuality = Quality 100 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]
------------------------
-$(deriveJSON (unPrefix "_foundations_" ) ''PhyloFoundations)
\ No newline at end of file
+$(deriveJSON (unPrefix "_foundations_" ) ''PhyloFoundations)