public void BinomialTestConstructorTest7()
{
// Wolfram Alpha reports 0.063564300537
// http://www.wolframalpha.com/input/?i=test+for+binomial+parameter+p0%3D0.5%2C+samples%3D18%2C+successes%3D5
// GNU R reports 0.096248626708
double[] expected =
{
0.00000000000, 0.02819385651, 0.382725376073,
1.00000000000, 0.34347252004, 0.063564300537,
0.00707077678, 0.00026908252, 0.000002519659,
0.00000000052, 0.00000000000
};
for (int i = 0; i <= 10; i++)
{
double p = i / 10.0;
BinomialTest target = new BinomialTest(5, 18, p);
Assert.AreEqual(DistributionTail.TwoTail, target.Tail);
Assert.AreEqual(expected[i], target.PValue, 5e-4);
}
}