tests/testthat/test-translink_samplesize.R

In phylosamp: Sample Size Calculations for Molecular and Phylogenetic Studies

test_that("translink_samplesize fails when sensitivity 0", {

    expect_error(translink_samplesize(sensitivity = 0, specificity = 0.995, N = 100,
        R = 1, tdr = 0.75))

})


test_that("translink_samplesize fails when parameters invalid", {

    expect_error(translink_samplesize(sensitivity = 0.99, specificity = 0.995, N = 100,
        R = 1, tdr = 2))

    expect_error(translink_samplesize(sensitivity = 0.99, specificity = 0.995, N = 100,
        R = 1, tdr = -2))
})