R/rsu.sep.rspool.R

In epiR: Tools for the Analysis of Epidemiological Data

Defines functions rsu.sep.rspool

Documented in rsu.sep.rspool

rsu.sep.rspool <- function(r, k, pstar, pse, psp = 1){
  sep <- 1 - ((1 - (1 - pstar)^k) * (1 - pse) + (1 - pstar)^k * psp)^r
  spp <- psp^r
  return(list(se.p = sep, sp.p = spp))
}

Try the epiR package in your browser