Nothing
zsep.binom <- function(n, pstar, se = 1, sp = 1) {
sep <- 1 - (1 - (se * pstar + (1 - sp) * (1 - pstar)))^n
return(sep)
}
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.