Changeset 2593


Ignore:
Timestamp:
Oct 30, 2011, 2:55:48 AM (10 years ago)
Author:
Peter
Message:

add test for #678

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/test/roc.cc

    r2585 r2593  
    3939
    4040void test_ties(test::Suite& suite);
     41void test_p_exact(test::Suite& suite);
     42void test_p_approx(test::Suite& suite);
    4143void test_p_exact_with_ties(test::Suite& suite);
    4244void test_p_approx_with_ties(test::Suite& suite);
     
    102104  test_p_approx_with_ties(suite);
    103105  test_p_exact_with_ties(suite);
     106  test_p_approx(suite);
     107  test_p_exact(suite);
    104108
    105109  return suite.return_value();
     
    171175  }
    172176}
     177
     178void test_p_exact(test::Suite& suite)
     179{
     180  suite.out() << "test_p_exact\n";
     181  statistics::ROC roc;
     182  for (size_t i=0; i<9; ++i)
     183    roc.add(i, i<5);
     184  if (roc.p_value_one_sided()<0.5) {
     185    suite.xadd(false);
     186    suite.err() << "error: expected p-value>0.5\n  found: "
     187                << roc.p_value_one_sided() << "\n";
     188  }
     189
     190}
     191
     192
     193void test_p_approx(test::Suite& suite)
     194{
     195  suite.out() << "test_p_approx\n";
     196  statistics::ROC roc;
     197  for (size_t i=0; i<100; ++i)
     198    roc.add(i, i<50);
     199  if (roc.p_value_one_sided()<0.5) {
     200    suite.add(false);
     201    suite.err() << "error: expected p-value>0.5\n  found: "
     202                << roc.p_value_one_sided() << "\n";
     203  }
     204}
Note: See TracChangeset for help on using the changeset viewer.