1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
module Tests.SpecFunctions.Tables where
tableIncompleteBeta :: [(Double,Double,Double,Double)]
tableIncompleteBeta =
[(2.000000000000000, 3.000000000000000, 0.030000000000000, 0.0051864299999999988189)
, (2.000000000000000, 3.000000000000000, 0.230000000000000, 0.22845923000000001313)
, (2.000000000000000, 3.000000000000000, 0.760000000000000, 0.95465727999999994147)
, (4.000000000000000, 2.300000000000000, 0.890000000000000, 0.93829812158347791762)
, (1.000000000000000, 1.000000000000000, 0.550000000000000, 0.55000000000000004441)
, (0.300000000000000, 12.199999999999999, 0.110000000000000, 0.95063000053947066537)
, (13.100000000000000, 9.800000000000001, 0.120000000000000, 1.3483109941962659385e-07)
, (13.100000000000000, 9.800000000000001, 0.420000000000000, 0.071321857831804780226)
, (13.100000000000000, 9.800000000000001, 0.920000000000000, 0.99999578339197070509)
]
-- (x, p, q, exact)
tableIncompleteBetaP3000 :: [(Double,Double,Double,Double)]
tableIncompleteBetaP3000 =
[ (0.495, 3001, 3001, 0.2192546757957825068677527085659175689142653854877723)
, (0.501, 3001, 3001, 0.5615652382981522803424365187631195161665429270531389)
, (0.531, 3500, 3200, 0.9209758089734407825580172472327758548870610822321278)
, (0.501, 13500, 13200, 0.0656209987264794057358373443387716674955276089622780)
]
|
