src/Gargantext/Viz/Graph/Distances.hs

   1 {-|
   2 Module      : Gargantext.Graph.Distances
   3 Description : Distance management tools
   4 Copyright   : (c) CNRS, 2017-Present
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9
  10 -}
  11
  12 {-# LANGUAGE NoImplicitPrelude #-}
  13 {-# LANGUAGE FlexibleContexts  #-}
  14 {-# LANGUAGE Strict            #-}
  15
  16 module Gargantext.Viz.Graph.Distances
  17   where
  18
  19
  20 import Data.Array.Accelerate
  21 import Gargantext.Viz.Graph.Distances.Matrice (measureConditional, distributional)
  22
  23 data Distance = Conditional | Distributional
  24
  25
  26 measure :: Distance -> Matrix Int -> Matrix Double
  27 measure Conditional    = measureConditional
  28 measure Distributional = distributional
  29
  30
  31
  32