Changeset 2314 for branches/0.6-stable

Timestamp:

Aug 20, 2010, 12:26:13 AM (13 years ago)

Author:

Peter

Message:

refs #638. adding a test for Fisher with large values

File:

• branches/0.6-stable/test/fisher_test.cc (modified) (4 diffs)

branches/0.6-stable/test/fisher_test.cc

@@ -20 +20 @@
 */
 
+#include <climits>
+
 #include "Suite.h"
 
@@ -28 +30 @@
 void test_p_value_approximative(test::Suite&);
 void test_p_value_exact(test::Suite&);
+void test_large_numbers(test::Suite&);
 
 int main(int argc, char* argv[])
@@ -65 +68 @@
   }
   test_p_value(suite);
+  test_large_numbers(suite);
   return suite.return_value();
 }
@@ -116 +120 @@
 
 }
+
+void test_large_numbers(test::Suite& suite)
+{
+  statistics::Fisher f;
+  double oddsratio = f.oddsratio(1166,63326825-1166,1095,66074759-1095);
+  if (oddsratio<0.5 || oddsratio>2) {
+    suite.err() << "oddsratio: " << oddsratio << "\n";
+    suite.err() << "expected ~ 1\n";
+    suite.xadd(false);
+  }
+
+}