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