R/zsep.binom.imperfect.R

Defines functions zsep.binom.imperfect

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)
}

Try the epiR package in your browser

Any scripts or data that you put into this service are public.

epiR documentation built on Nov. 20, 2023, 9:06 a.m.