data(ships)
glmshp <- glm(accident ~ op + co.70.74 + co.75.79 + offset(log(service)),
family=poisson, data=ships)
summary(glmshp)
exp(coef(glmshp))
library(MASS)
glmshnb <- glm.nb(accident ~ op + co.70.74 + co.75.79 + offset(log(service)),
data=ships)
summary(glmshnb)
exp(coef(glmshnb))
if (FALSE) {
library(gee)
shipgee <- gee(accident ~ op + co.70.74 + co.75.79 + offset(log(service)),
data=ships, family=poisson, corstr="exchangeable", id=ship)
summary(shipgee)
}
Run the code above in your browser using DataLab