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 Aug. 3, 2026, 5:06 p.m.