[API FIX] search docs ok
[gargantext.git] / src / Gargantext / Viz / AdaptativePhylo.hs
index 19bd52315e04a57c50d73a73e9562583cf7cd36c..43a8d52f5a90ec253c718d32a068cf01e71dee6f 100644 (file)
@@ -21,10 +21,8 @@ in science evolution — the rise and fall of scientific fields. PloS
 one 8, e54847.
 -}
 
-{-# LANGUAGE DeriveGeneric, DeriveAnyClass #-}
-{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE DeriveAnyClass   #-}
 {-# LANGUAGE TemplateHaskell   #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
 
 module Gargantext.Viz.AdaptativePhylo where
 
@@ -66,11 +64,13 @@ data SeaElevation =
 
 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) 
@@ -143,11 +143,11 @@ defaultConfig =
             , 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]  
@@ -434,4 +434,4 @@ makeLenses ''PhyloBranch
 ------------------------
 
 
-$(deriveJSON (unPrefix "_foundations_"  ) ''PhyloFoundations)
\ No newline at end of file
+$(deriveJSON (unPrefix "_foundations_"  ) ''PhyloFoundations)