src/Data/Gargantext/Network.hs

   1 module Data.Gargantext.Network where
   2
   3 import Data.Gargantext.Prelude
   4
   5 import Data.Map    as DM
   6 import Data.Vector as DV
   7
   8 type Measure a b c = DM.Map a (DM.Map b c)
   9
  10
  11 -- UTCTime Paire Granularity [Candle]
  12
  13 -- GargVector Paire Granularity [Candle]
  14 type GargVector a b c     = DM.Map a ( DM.Map b c)
  15
  16 -- GargMatrix Granularity (Paire Paire) [Candle]
  17 type GargMatrix a b c d   = DM.Map a (FolioVector b c d)
  18
  19 -- GargMatrix Granularity (Paire Paire) [Candle]
  20 type GargTensor a b c d e = DM.Map a (FolioMatrix b c d e)
  21
  22
  23
  24 --data PortGarg = PortGarg { _portFolioParameters :: Parameters
  25 --                           , _portGargData      :: Garg
  26 --}
  27
  28
  29 toMeasure :: Granularity -> Paire -> [Candle]
  30            -> Measure Granularity Paire Candle
  31 toMeasure g c1 c2 cs = DM.fromList [(g,
  32
  33
  34
  35
  36