## Fitting COMPoisson model with estimated nu parameter:
if (spaMM.getOption("example_maxtime")>8) {
data(freight) ## example from Sellers & Shmueli, Ann. Appl. Stat. 4: 943–961 (2010)
fitme(broken ~ transfers,family = COMPoisson(),data=freight)
}
## Not run:
# data(freight)
# # Equivalence of poisson() and COMPoisson(nu=1):
# COMPglm <- glm(broken ~ transfers, data=freight, family = poisson())
# coef(COMPglm)
# logLik(COMPglm)
# COMPglm <- glm(broken ~ transfers, data=freight, family = COMPoisson(nu=1))
# coef(COMPglm)
# logLik(COMPglm)
# HLfit(broken ~ transfers, data=freight, family = COMPoisson(nu=1))
# # GLMM with under-dispersed conditional response
# HLfit(broken ~ transfers+(1|id), data=freight, family = COMPoisson(nu=10),HLmethod="ML")
# ## End(Not run)
Run the code above in your browser using DataLab