Skip to content

H
haskell-gargantext
Unverified Commit 910bdf96 authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

ElEve..

parent 4864e24b
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 1 deletion
src/Gargantext/Text/Eleve.hs
View file @ 910bdf96
...@@ -488,6 +488,7 @@ testEleve debug n output checks = do ...@@ -488,6 +488,7 @@ testEleve debug n output checks = do
nsb = parseToken <$> (reverse $ T.words ngram) nsb = parseToken <$> (reverse $ T.words ngram)
t' = findTrie ns t t' = findTrie ns t
tvar = findTrie ns t'' tvar = findTrie ns t''
nt' = findTrie ns nt
P.putStrLn $ " " <> T.unpack ngram <> ":" P.putStrLn $ " " <> T.unpack ngram <> ":"
check (==) "count" count (_node_count tvar) check (==) "count" count (_node_count tvar)
...@@ -500,7 +501,7 @@ testEleve debug n output checks = do ...@@ -500,7 +501,7 @@ testEleve debug n output checks = do
FAIL entropy ref=NaN my=0.0 FAIL entropy ref=NaN my=0.0
-} -}
check sim "autonomy" autonomy (nodeEntropy info_autonomy nt) check sim "autonomy" autonomy (nodeEntropy info_autonomy nt')
check sim "fwd_entropy" fwd_entropy (nodeEntropy identity (_fwd t')) check sim "fwd_entropy" fwd_entropy (nodeEntropy identity (_fwd t'))
check sim "bwd_entropy" bwd_entropy (nodeEntropy identity (_bwd t')) check sim "bwd_entropy" bwd_entropy (nodeEntropy identity (_bwd t'))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment