Test underestimation limit — underestimation

For a given sensitivity and specificity this give the critical threshold after which test error introduces underestimation rather than over estimation

Usage

underestimation_threshold(sens, spec)

Arguments

sens: the sensitivity of the test
spec: the specificity of the test

Value

the value where apparent prevalence equals true prevalence

Examples

tmp1 = underestimation_threshold(0.75, 0.97)
tmp2 = rogan_gladen(tmp1, 0.75, 0.97)
if (abs(tmp1-tmp2) > 0.0000001) stop("error")