tests/testthat/test-fbh.R

context("testing FBH method")

test_that("FBH method results are as expected", {
  auc1 = 0.56
  auc2 = 0.59
  expect_equal(fbh_test(auc1, auc2, 1000, 2500), (-1)*fbh_test(auc2, auc1, 1000, 2500))
  expect_equal(abs(fbh_test(auc1, auc2, 1000, 2500)), abs(fbh_test(auc2, auc1, 1000, 2500)))
  expect_lt(fbh_test(auc1, auc2, 1000, 2500), fbh_test(auc2, auc1, 2000, 5000))
})

Try the auctestr package in your browser

Any scripts or data that you put into this service are public.

auctestr documentation built on May 2, 2019, 2:59 p.m.