R/zn.hypergeo.R

Defines functions zn.hypergeo

zn.hypergeo <- function(sep, N, d, se = 1) {
  n <- (N / se) * (1 - (1 - sep)^(1 / d))
  n[n > N] <- NA
  return(ceiling(n))
}

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.