Nothing
zsep.binom.imperfect <- function(n, c, se, sp, pstar) {
P.Pos <- pstar * se + (1 - pstar) * (1 - sp)
sep <- 1 - stats::pbinom(c - 1, n, P.Pos)
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.