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)
  ]
