Compute the true PR in a cohort as a function of age and exposure

The true PR is $$p_\tau(a|h) = 1 - e^{-m_\tau(a|h)}$$

Usage

truePR(a, FoIpar, tau = 0, hhat = 1, r = 1/200)

Arguments

a

the host cohort age

FoIpar

parameters that define an FoI function

tau

the cohort birthday

hhat

a local scaling parameter for the FoI

r

the clearance rate for a simple infection

Value

a numeric vector of length(a)