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