The true PR is $$p_\tau(a|h) = 1 - e^{-m_\tau(a|h)}$$
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)