# NOT RUN {
### Huang (2017) Page 373--375: Underdispersed Cotton bolls data
### Model fitting for predictor V
data(cottonbolls)
M.bolls <- glm.cmp(nc~ 1+stages:def+stages:def2, data= cottonbolls)
M.bolls
summary(M.bolls)
# }
Run the code above in your browser using DataLab