R/rsu.epinf.R

Defines functions rsu.epinf

Documented in rsu.epinf

rsu.epinf <- function(pstar, rr, ppr) {
  adj.risk <- rsu.adjrisk(rr = rr, ppr = ppr)
  epinf <- pstar * adj.risk
  return(list(epinf = epinf, adj.risk = adj.risk))
}

Try the epiR package in your browser

Any scripts or data that you put into this service are public.

epiR documentation built on June 22, 2024, 10:57 a.m.