diff options
| -rw-r--r-- | bin/cluster.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bin/cluster.hs b/bin/cluster.hs index dd8f2c6..0a7a438 100644 --- a/bin/cluster.hs +++ b/bin/cluster.hs @@ -76,7 +76,7 @@ model xs = do where likelihood ps cnts = product $ zipWith go ps (pairs cnts) where - go p (c, d) = max (pois (fromIntegral d * p) c) (pois (fromIntegral d * p / 2) c) + go p (c, d) = pois (fromIntegral d * p) c -- Tabulate list tabulate xs = M.elems $ M.fromListWith (+) [(c, 1) | c <- xs] |