Portability : POSIX
-}
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE ViewPatterns #-}
module Gargantext.Viz.Phylo.Metrics
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
inter :: Map (Int, Int) Double
inter = intersection f1 f2
--------------------------------------
-
-
-
-
-
-