Description Usage Arguments Details Examples
Generates a continuous landscape of susceptible individuals given key parameters on the median and range of dengue seroprevalence and the past distribution of recent cases
1 | stim.generate(pastdat, sero, startweek, sgpop, unipix)
|
pastdat |
Data frame of the locations, numbers and timings (in weeks) of recent cases, see ?sgdat |
sero |
a three element vector giving the minimum, median and maximum observed seroprevalence in the landscape |
startweek |
the week from which the model simulation will begin |
unipix |
Universal pixel lookup table, see ?make.unipix |
This approach assumes that true seroprevalence will be higher in areas with recent dengue infection. It therefore, takes past data from before the model simulation, uses krigeing (see ?autoKrig) to generate a continuosu surface of predicted past cases, then scales these to match the range and median of the seroprevalence values provided.
1 2 3 4 5 6 7 8 9 | data(sgdat)
data(sgpop)
sgpop <- pop.process(sgpop, agg = 10)
unipix <- make.unipix(sgpop)
sgdat <- data.frame(sgdat, patchID = apply(cbind(sgdat[, 3:2]), 1, pix.id.find, unipix))
sero <- c(0.577, 0.659, 0.814)
startweek <- 40
stim <- stim.generate(sgdat, sero, startweek, unipix)
plot.state(stim, sgpop, unipix)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.