inst/tests/test-prob_exposure_misc.R

In philliplab/qba: Quantitative Bias Analysis

context('Probablistic Exposure Missclassification')

test_that('prob_exposure_misc yields the EXCEL amounts', {
  params <- list(n = 5000,
                 ep_op = 45,
                 en_op = 94,
                 ep_on = 257,
                 en_on = 945)
  answer <- list(rr_c = 1.0552504072023,
                 or_c = 1.0752888861692)
  retval <- do.call(exposure_misc, params)
  expect_that(retval, equals(c(answer[[1]], answer[[2]])))
    
})