[PHYLO] FIS added.

package.yaml

@@ -111,7 +111,8 @@ library:
   - path
   - path-io
   - postgresql-simple
-  - pretty
+  - pretty-simple
+  - probability
   - product-profunctors
   - profunctors
   - protolude

src/Gargantext/Text/Metrics/FrequentItemSet.hs

@@ -33,7 +33,7 @@ import qualified Data.Set as Set
 import Data.Set (Set)
 import qualified Data.Vector as V
 
-import Data.List (filter, concat)
+import Data.List (filter, concat, null)
 import Data.Maybe (catMaybes)
 
 import HLCM
@@ -93,7 +93,9 @@ fisWithSize n f is = case n of
 
                       --- Filter on Fis and not on [Item]
 fisWith :: Maybe ([Item] -> Bool) -> Frequency -> [[Item]] -> [Fis]
-fisWith s f is = catMaybes $ map items2fis $ filter' $ runLCMmatrix is f
+fisWith s f is = case filter (not . null) is of
+                   [] -> []
+                   js -> catMaybes $ map items2fis $ filter' $ runLCMmatrix js f
 -- drop unMaybe
   where
     filter' = case s of

src/Gargantext/Viz/Phylo/Example.hs

@@ -10,12 +10,15 @@ module Gargantext.Viz.Phylo.Example where
 
 import qualified Data.List as DL
 import Data.String (String)
-import Data.Text (Text, pack, unwords, toLower)
+import Data.Text (Text, pack, unwords, toLower, words)
 import Data.Tuple.Extra (both)
 
 import Data.Map (Map)
 import qualified Data.Map as DM
 
+import Data.Set (Set)
+
+import Gargantext.Text.Metrics.FrequentItemSet (fisWithSizePolyMap, Size(..))
 import Gargantext.Text.Terms.Mono (monoTexts) 
 import Gargantext.Prelude
 
@@ -24,11 +27,21 @@ type Histoire = [Event]
 data Event = Event {date:: Double, text :: Text}
   deriving (Show)
 
+
 type MapList = [Text]
 type PeriodeSize = Int
 -- data Periodes b a = Map (b,b) a
 ------------------------------------------------------------------------
 
+-- | TODO FIS on monotexts
+phyloFIS :: Map (Double, Double) [Event] -> Map (Double, Double) (Map (Set Text) Int)
+phyloFIS = DM.map (\n -> fisWithSizePolyMap (Point 1) 1 (map (words . text) n))
+
+
+phyloExample :: Map (Double, Double) [Event]
+phyloExample = toPeriodes date 1 $ cleanHistoire  mapList phyloCorpus
+------------------------------------------------------------------------
+
 toPeriodes :: (Enum b, Fractional b, Ord b) => (t -> b) -> b -> [t] -> Map (b, b) [t]
 toPeriodes _ _ [] = panic $ pack "Empty history can not have any periode"
 toPeriodes f s hs = periodes f st hs