Nothing
zget.cp <- function(n.cp, se, sp, type2){
cp <- 0
SpH <- 0
while (SpH < 1 - type2) {
cp <- cp + 1
# Probability of observed result from disease-free population:
SpH <- zsph.binom(n.cp, cp, sp)
}
return (list("cp" = cp, "SpH" = SpH))
}
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.