tests/testthat/test-translink_fdr.R

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

test_that("translink_fdr returns 1 when sensitivity perfect", {

    expect_equal(translink_fdr(sensitivity = 1, specificity = 1, rho = 1, M = 10,
        R = NULL, assumption = "stsl"), 0)

    expect_equal(translink_fdr(sensitivity = 1, specificity = 1, rho = 1, M = 10,
        R = 1, assumption = "mtsl"), 0)

    expect_equal(translink_fdr(sensitivity = 1, specificity = 1, rho = 1, M = 10,
        R = 1, assumption = "mtml"), 0)

})


test_that("translink_fdr returns 0 when sensitivity 0", {

    expect_equal(translink_fdr(sensitivity = 0, specificity = 0.99, rho = 1, M = 10,
        R = NULL, assumption = "stsl"), 1)

    expect_equal(translink_fdr(sensitivity = 0, specificity = 0.99, rho = 1, M = 10,
        R = 1, assumption = "mtsl"), 1)

    expect_equal(translink_fdr(sensitivity = 0, specificity = 0.99, rho = 1, M = 10,
        R = 1, assumption = "mtml"), 1)
})

test_that("translink_fdr fails when parameters invalid", {

    expect_error(translink_fdr(sensitivity = 0.9, specificity = 0.9, rho = 1, M = 10,
        R = 1, assumption = "bananas"))
})