Changeset 3004 for trunk/test/fisher.cc

Timestamp:

Mar 24, 2013, 1:51:14 AM (10 years ago)

Author:

Peter

Message:

refs #689. Deprecate Fisher::one_sided_p; implement Fisher::left_p and right_p.

File:

• trunk/test/fisher.cc (modified) (4 diffs)

trunk/test/fisher.cc

@@ -91 +91 @@
   }
   suite.add(suite.equal_fix(f.p_value(), 0.0123, 0.0001));
-  f.p_value_one_sided();
+  f.p_left();
+  f.p_right();
 }
 
@@ -108 +109 @@
   f.minimum_size() = 0;
   f.oddsratio(10,20,20,50);
-  suite.add(suite.equal(f.p_value(), 2*f.p_value_one_sided()));
+  // oddsratio 1.25 > 1 so p = 2*p_right
+  suite.add(suite.equal(f.p_value(), 2*f.p_right()));
   f.oddsratio(10,20,10,20);
   suite.add(suite.equal(f.p_value(), 1.0));
-  suite.add(suite.equal(f.p_value_one_sided(), 0.5));
+  suite.add(suite.equal(f.p_right(), 0.5));
+  suite.add(suite.equal(f.p_left(), 0.5));
 }
 
@@ -125 +128 @@
   f.oddsratio(10, 20, 20, 200);
   suite.add(suite.equal_fix(f.p_value(), 0.000811906062767622,1e-16));
-  suite.add(suite.equal_fix(f.p_value_one_sided(), 0.000811906062767622,1e-16));
+  suite.add(suite.equal_fix(f.p_right(), 0.000811906062767622,1e-16));
 
   // testing symmetry
@@ -132 +135 @@
   f2.oddsratio(20, 200, 10, 20);
   suite.add(suite.equal(f2.p_value(), f.p_value()));
+  suite.add(suite.equal(f2.p_left(), f.p_right()));
 
   f.oddsratio(1, 1, 1, 2);
   suite.add(suite.equal(f.p_value(), 1.0, 2));
-  suite.add(suite.equal(f.p_value_one_sided(), 0.7));
+  suite.add(suite.equal(f.p_right(), 0.7));
+  suite.add(suite.equal(f.p_left(), 0.9));
 
   f.oddsratio(1, 1, 2, 1);
   suite.add(suite.equal(f.p_value(), 1.0, 2));
-  suite.add(suite.equal(f.p_value_one_sided(), 0.9));
-
+  suite.add(suite.equal(f.p_right(), 0.9));
+  suite.add(suite.equal(f.p_left(), 0.7));
 }