Permalink
Browse files

Workaround for slowness of incompleteBeta

incompleteBeta p p 0.5 is very sow for large p
  • Loading branch information...
1 parent b662c32 commit 111b20b9ee398b64002c418bf987918f00601863 @Shimuuar Shimuuar committed Oct 3, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 tests/Tests/Distribution.hs
View
2 tests/Tests/Distribution.hs
@@ -122,7 +122,7 @@ cdfLimitAtPosInfinity _ d =
okForInfLimit d ==> printTestCase ("Last elements: " ++ show (drop 990 probs))
$ Just 1.0 == (find (>=1) probs)
where
- probs = take 1000 $ map (cumulative d) $ iterate (*1.4) 1
+ probs = take 1000 $ map (cumulative d) $ iterate (*1.4) 1000
-- CDF limit at -∞ is 0
cdfLimitAtNegInfinity :: (Param d, Distribution d) => T d -> d -> Property

0 comments on commit 111b20b

Please sign in to comment.