# NOT RUN {
### Huang (2017) Page 371--372: Underdispersed Takeover Bids data
data(takeoverbids)
M.bids <- glm.cmp(numbids ~ leglrest + rearest + finrest + whtknght
+ bidprem + insthold + size + sizesq + regulatn, data=takeoverbids)
M.bids
summary(M.bids)
plot(M.bids) #or autoplot(M.bids)
# }
Run the code above in your browser using DataLab