src/Gargantext/Text/Metrics/TFICF.hs

   1 {-|
   2 Module      : Gargantext.Text.Metrics.TFICF
   3 Description : TFICF Ngrams tools
   4 Copyright   : (c) CNRS, 2017
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9
  10 Definition of TFICF
  11
  12 -}
  13
  14 {-# LANGUAGE DeriveGeneric     #-}
  15 {-# LANGUAGE NoImplicitPrelude #-}
  16
  17
  18 module Gargantext.Text.Metrics.TFICF where
  19
  20 import GHC.Generics (Generic)
  21
  22 import Data.Maybe (Maybe)
  23 import Data.Text (Text)
  24 import Text.Show (Show())
  25
  26 -- import Gargantext.Types
  27 import Gargantext.Prelude
  28
  29
  30 data Context = Corpus | Document
  31   deriving (Show, Generic)
  32
  33 data TFICF = TFICF { _tficfTerms    :: Text
  34                    , _tficfContext1 :: Context
  35                    , _tficfContext2 :: Context
  36                    , _tficfScore    :: Maybe Double
  37                    } deriving (Show, Generic)
  38
  39
  40 --tfidf :: Text -> TFICF
  41 --tfidf txt = TFICF txt Document Corpus score
  42 --    where
  43 --        score = Nothing
  44