Commit ceba0645 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] candidate size

parent 3a1050bc
...@@ -116,7 +116,10 @@ distributional m' = run result ...@@ -116,7 +116,10 @@ distributional m' = run result
result = termDivNan z_1 z_2 result = termDivNan z_1 z_2
logDistributional :: Matrix Int -> Matrix Double logDistributional :: Matrix Int -> Matrix Double
logDistributional m = run $ diagNull n $ matMiniMax $ logDistributional' n m logDistributional m = run
$ diagNull n
$ matMiniMax
$ logDistributional' n m
where where
n = dim m n = dim m
......
...@@ -257,7 +257,7 @@ buildNgramsTermsList user uCid mCid groupParams (nt, _mapListSize)= do ...@@ -257,7 +257,7 @@ buildNgramsTermsList user uCid mCid groupParams (nt, _mapListSize)= do
let let
-- use % of list if to big, or Int if to small -- use % of list if to big, or Int if to small
mapSize = 1000 :: Double mapSize = 1000 :: Double
canSize = mapSize * 10 :: Double canSize = mapSize * 5 :: Double
inclSize = 0.4 :: Double inclSize = 0.4 :: Double
exclSize = 1 - inclSize exclSize = 1 - inclSize
......
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