R/rsu.sep.R

In epiR: Tools for the Analysis of Epidemiological Data

Defines functions rsu.sep

Documented in rsu.sep

rsu.sep <- function(N, n, pstar, se.u = 0.95){
  rval <- 1 - exp(pstar * (N * log(1 - se.u * n / N)))
  return(rval)
}

Try the epiR package in your browser