From c57595c8bd12a0ec07fb4817e95f09fba3d6d8a4 Mon Sep 17 00:00:00 2001
From: Nicolas Pouillard <nicolas.pouillard@gmail.com>
Date: Thu, 13 Jun 2019 01:46:55 +0200
Subject: [PATCH] Eleve cleanup
---
src/Gargantext/Text/Eleve.hs | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/src/Gargantext/Text/Eleve.hs b/src/Gargantext/Text/Eleve.hs
index 9c862d63..fd777c3b 100644
--- a/src/Gargantext/Text/Eleve.hs
+++ b/src/Gargantext/Text/Eleve.hs
@@ -440,17 +440,17 @@ testEleve debug n output checks = do
nt' = findTrieR ns nt
P.putStrLn $ " " <> T.unpack ngram <> ":"
- check (==) "count" count (_node_count (_fwd t'))
-
- check sim "entropy" entropy (nodeEntropyBwdOpt info_entropy nt' )
+ check (==) "count" count (_node_count (_fwd nt'))
+
+ check sim "entropy" entropy (nodeEntropy info_entropy nt' )
check sim "ev" ev (nodeEntropy info_entropy_var nt' )
check sim "autonomy" autonomy (nodeEntropy info_autonomy nt' )
-
+
check sim "fwd_entropy" fwd_entropy (nodeEntropy info_entropy (_fwd nt'))
check sim "fwd_ev" fwd_ev (nodeEntropy info_entropy_var (_fwd nt'))
check sim "fwd_autonomy" fwd_autonomy (nodeEntropy info_autonomy (_fwd nt'))
-
- check sim "bwd_entropy" bwd_entropy (nodeEntropy identity (_bwd t'))
+
+ check sim "bwd_entropy" bwd_entropy (nodeEntropy info_entropy (_bwd nt'))
check sim "bwd_ev" bwd_ev (nodeEntropy info_entropy_var (_bwd nt'))
check sim "bwd_autonomy" bwd_autonomy (nodeEntropy info_autonomy (_bwd nt'))
--
2.21.0