summaryrefslogtreecommitdiff
path: root/Statistics/ConfidenceInt.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Statistics/ConfidenceInt.hs')
-rw-r--r--Statistics/ConfidenceInt.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Statistics/ConfidenceInt.hs b/Statistics/ConfidenceInt.hs
index 020f23f..e0a5351 100644
--- a/Statistics/ConfidenceInt.hs
+++ b/Statistics/ConfidenceInt.hs
@@ -30,7 +30,7 @@ poissonNormalCI n
poissonCI :: CL Double -> Int -> Estimate ConfInt Double
poissonCI cl@(significanceLevel -> p) n
| n < 0 = error "Statistics.ConfidenceInt.poissonCI: negative number of trials"
- | n == 0 = estimateFromInterval m (m1,m2) cl
+ | n == 0 = estimateFromInterval m (0 ,m2) cl
| otherwise = estimateFromInterval m (m1,m2) cl
where
m = fromIntegral n