FoI.Rmd
We want to be able to simulate arbitrary patterns of exposure in cohorts as they age, with the ability to compare two cohorts of different ages in the same population. We let denote the average daily FoI in a population, the hazard rate for infection. Notably, knowing the birth day for a cohort, we can convert between age and time using the identity We let be a function that computes a frailty term associated with age, so we can write the FoI for any cohort as:
We begin by constructing functions, to pressure test our models. We assume exposure has a seasonal pattern, , and a temporal trend, , and
Motivated by the evidence for age-dependent exposure, the rate of exposure in a cohort is assumed to change with age. We use the age-weighting function, , consistent with the available evidence from both anopheline and aedine mosquitoes (Port GR, et al., 1980;1, Carnevale P, et al., 1978;2, Liebman KA, et al., 20143) . Each cohort is indexed by its birth day, . The FoI at age for the cohort born on day , which is at time , is defined for :
We can thus compare exposure and infection for cohorts of different ages, of the same age at different times. We let denote the size of the cohort of age born on day , and we note that for to be the average FoI for the population, it must be true that In most of our simulations, we compute quantities for single cohorts as they age, and we choose functions without worrying about this constraint. When we deal with the whole human population, however, we must enforce the constraint.
The FoI
is defined as an S3 class
function that returns the FoI at ages a
for a cohort with
birthdate tau
, for a function defined by par
.
The optional passed parameter hhat
overrides the value of
hbar
set in par
when it is not
null
:
or hbar
sets the overall level of exposure
or seasonalFoI
defines a seasonal pattern
or trendFoI
defines a temporal trend
or ageFoI
defines a change in exposure with respect to age
relative to the mean population FoI
plotFoI= function(h, FoIpar, tau=0, Tmax=5*365, clrs=NULL){
L = length(h)
if(is.null(clrs)) clrs = rep("black", L)
tms = 1:Tmax
tm = tms/365
plot(tm, 365*h[1]*FoI(tms, FoIpar, tau), type = "n",
xlab = "Host Age (Years)", ylab = "aFoI")
for(i in 1:L) lines(tm, 365*h[i]*FoI(tms,FoIpar, tau), col = clrs[i])
}
clrs8b <- viridisLite::inferno(8)
FoIfigure = function(hh=c(8, 4, 2, 1, .5, .2, 0.1)/365,
tau=0, clrs = clrs8b, Tmax=5*365){
par(mfcol = c(1,2), mar =c(4,4,1,1))
plotFoI(hh, foiP4, tau, Tmax, clrs)
plotFoI(hh, foiP3, tau, Tmax, clrs)
}
G. R. Port, P. F. L. Boreham, J. H. Bryan, The relationship of host size to feeding by mosquitoes of the Anopheles Gambiae Giles complex (Diptera: Culicidae). Bulletin of Entomological Research 70, 133–144 (1980).↩︎
P. Carnevale, J. L. Frézil, M. F. Bosseno, F. Le Pont, J. Lancien, [The aggressiveness of Anopheles gambiae A in relation to the age and sex of the human subjects]. Bull. World Health Organ. 56, 147–154 (1978).↩︎
K. A. Liebman, et al., Determinants of Heterogeneous Blood Feeding Patterns by Aedes Aegypti in Iquitos, Peru. PLoS Negl. Trop. Dis. 8, e2702 (2014).↩︎