R/zsep.hypergeo.R

Defines functions zsep.hypergeo

zsep.hypergeo <- function(N, n, d, se = 1) {
  d <- pmin(N, d)
  sep <- 1 - (1 - se * n / N)^d
  sep[n == 0] <- 0
  sep[n > N] <- NA
  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.