inst/tests/test-exposure_misc.R

In philliplab/qba: Quantitative Bias Analysis

context('Exposure Missclassification')

test_that('exposure_misc yields the EXCEL amounts', {
  params <- list(se_p = 1,
                 se_n = 1, 
                 sp_p = 0.9,
                 sp_n = 0.9,
                 ep_op = 215,
                 en_op = 1449,
                 ep_on = 668,
                 en_on = 4296)
  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]])))
    
})