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

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

Usage

truePR(a, FoI_a, bday = 0, hhat = 1, r = 1/200)

Arguments

a

the host cohort age

FoI_a

a cohort trace function

bday

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)