tests/testthat/test-translink_expected_links_obs_stsl.R

In HopkinsIDD/phylosamp: Sample Size Calculations for Molecular and Phylogenetic Studies

test_that("translink_expected_links_obs_stsl returns (M/2) * rho when sensitivity perfect", {

    expect_equal(translink_expected_links_obs_stsl(sensitivity = 1, specificity = 1,
        rho = 1, M = 10), 5)

    expect_equal(translink_expected_links_obs_stsl(sensitivity = 1, specificity = 1,
        rho = 0.5, M = 10), 2.5)
})

test_that("translink_expected_links_obs_stsl fails when parameters invalid", {

    expect_error(translink_expected_links_obs_stsl(sensitivity = 5, specificity = 1,
        rho = 1, M = 10))

    expect_error(translink_expected_links_obs_stsl(sensitivity = 1, specificity = 5,
        rho = 0.5, M = 10))

    expect_error(translink_expected_links_obs_stsl(sensitivity = 1, specificity = 1,
        rho = 5, M = 10))

    expect_error(translink_expected_links_obs_stsl(sensitivity = 1, specificity = 1,
        rho = 0.5, M = -1))

    expect_error(translink_expected_links_obs_stsl(sensitivity = 0.99, specificity = 0.99,
        rho = 0, M = 10))
})