Fix haddock parse error
[gargantext.git] / src / Gargantext / Core / Text / Metrics / TFICF.hs
index d1e6a779059d63ae675ef2985feffcb841f9d8bc..e4fcae5624aaf8876ad4628cc37f9da5913d7db5 100644 (file)
@@ -47,8 +47,11 @@ tficf :: TficfContext Count Total
       -> TFICF
 tficf (TficfInfra (Count ic) (Total it) )
       (TficfSupra (Count sc) (Total st) )
-            | it >= ic && st >= sc && it <= st = (ic/it) / log (sc/st)
-            | otherwise            = panic $ "[ERR]" <> path <>" Frequency impossible"
+            | it >= ic && st >= sc && it <= st = (it/ic) * log (st/sc)
+            | otherwise                        = panic
+                                               $ "[ERR]"
+                                               <> path
+                                               <> " Frequency impossible"
 tficf _ _ = panic $ "[ERR]" <> path <> "Undefined for these contexts"