R/zdisc.prior.R

Defines functions zdisc.prior

zdisc.prior <- function(prior, p.intro) {
  prior.disc <- 1 - (1 - prior + p.intro - ((1 - prior) * p.intro))
  return(prior.disc)
}

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.