library(MASS)
data(rwm5yr)
glmrp <- glm(docvis ~ outwork + female + age + factor(edlevel), family=poisson, data=rwm5yr)
summary(glmrp)
exp(coef(glmrp))
## Not run:
# library(msme)
# nb2 <- nbinomial(docvis ~ outwork + female + age + factor(edlevel), data=rwm5yr)
# summary(nb2)
# exp(coef(nb2))
#
# glmrnb <- glm.nb(docvis ~ outwork + female + age + factor(edlevel), data=rwm5yr)
# summary(glmrnb)
# exp(coef(glmrnb))
# ## End(Not run)
Run the code above in your browser using DataLab