data("imdepi")
data("imdepifit")
## add another epidemic covariate (but fix siaf-parameter for speed)
imdepifit2 <- update(imdepifit, epidemic = ~. + log(popdensity),
optim.args = list(fixed="e.siaf.1"), cumCIF=FALSE)
## compare by AIC
AIC(imdepifit, imdepifit2)
if (surveillance.options("allExamples")) {
## enrich the fit by the model environment
imdepifit <- update(imdepifit, model=TRUE)
## this enables, e.g., intensityplot()s and untrimmed R0 estimates
}
Run the code above in your browser using DataLab