[FIX] TFICF condition (better implemented definition)
[gargantext.git] / src / Gargantext / Viz / Phylo / Metrics.hs
index a910548870184ace7d3c6ddd2ee39ab2bd4f7369..ae137b817335574f237843bf58aa068051895550 100644 (file)
@@ -8,10 +8,6 @@ Stability   : experimental
 Portability : POSIX
 -}
 
-{-# LANGUAGE FlexibleContexts  #-}
-{-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RankNTypes        #-}
 {-# LANGUAGE ViewPatterns      #-}
 
 module Gargantext.Viz.Phylo.Metrics
@@ -94,13 +90,13 @@ findDynamics n pv pn m =
         bid = fromJust $ (pn ^. pn_bid)
         end = last' "dynamics" (sort $ map snd $ elems m)
     in  if (((snd prd) == (snd $ m ! n)) && (snd prd /= end))
-            -- emergence
+            -- emergence
             then 2
         else if ((fst prd) == (fst $ m ! n))
-            -- recombination
+            -- recombination
             then 0
         else if (not $ sharedWithParents (fst prd) bid n pv)
-            -- decrease
+            -- decrease
             then 1
         else 3
 
@@ -179,9 +175,3 @@ hamming f1 f2 = fromIntegral $ max ((size inter) - (size f1)) ((size inter) - (s
     inter :: Map (Int, Int) Double
     inter = intersection f1 f2 
     --------------------------------------
-
-
-
-
-
-