R/rsu.sssep.rspool.R

In epiR: Tools for the Analysis of Epidemiological Data

Defines functions rsu.sssep.rspool

Documented in rsu.sssep.rspool

rsu.sssep.rspool <- function(k, pstar, pse, psp, se.p) {
  n <- log(1 - se.p) / log(((1 - (1 - pstar)^k) * (1 - pse) + (1 - pstar)^k * psp))
  return(ceiling(n))
}

Try the epiR package in your browser