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 Nov. 20, 2023, 9:06 a.m.