Nothing
epi.pooled <- function(se, sp, P, m, r){
# Herd specificity:
PlSp <- sp^m
HSp <- (PlSp)^r
# Herd sensitivity:
HSe <- 1 - ((1 - (1 - P)^m) * (1 - se) + (1 - P)^m * PlSp)^r
# Herd level apparent prevalence:
HAPneg <- 1 - HSp
rval <- list(HAPneg = HAPneg, HSe = HSe, HSp = HSp)
rval
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.