Fix failure of chi-squared test

haskell · Jun 10, 2024 · 4ebd207 · 4ebd207
1 parent 8f1b2bf
commit 4ebd207
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/System/Random/MWC/Distributions.hs b/System/Random/MWC/Distributions.hs
@@ -451,8 +451,8 @@ binomial nTrials prob gen
                                          step5 ix w
 
                   -- Right tail
-                | otherwise = do let ix = floor $ xr - log v / lambdaL
-                                 if ix > 0 && ix > n
+                | otherwise = do let ix = floor $ xr - log v / lambdaR
+                                 if ix > n
                                    then hh
                                    else do let w = v * (u - p3) * lambdaR
                                            step5 ix w