Skip to content

H
haskell-gargantext
Commit 64eb6bb1 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] TFICF condition (better implemented definition)

parent 357022f8
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/Gargantext/Text/Metrics/TFICF.hs
View file @ 64eb6bb1
...@@ -42,7 +42,7 @@ tficf :: TficfContext Count Total ...@@ -42,7 +42,7 @@ tficf :: TficfContext Count Total
-> TFICF -> TFICF
tficf (TficfInfra (Count ic) (Total it) ) tficf (TficfInfra (Count ic) (Total it) )
(TficfSupra (Count sc) (Total st) ) (TficfSupra (Count sc) (Total st) )
| it >= ic && st >= sc = (ic/it) / log (sc/st) | it >= ic && st >= sc && it <= st = (ic/it) / log (sc/st)
| otherwise = panic $ "[ERR]" <> path <>" Frequency impossible" | otherwise = panic $ "[ERR]" <> path <>" Frequency impossible"
tficf _ _ = panic $ "[ERR]" <> path <> "Undefined for these contexts" tficf _ _ = panic $ "[ERR]" <> path <> "Undefined for these contexts"
......
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