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"))
## compare by AIC
AIC(imdepifit, imdepifit2)
Run the code above in your browser using DataLab