# NOT RUN {
data(hschool)
summary(hschool)
head(hschool)
require(MASS)
absfit <- glm.nb(daysabs~school+male+math+langarts,data=hschool)
summary(absfit)
rsq(absfit)
rsq(absfit,adj=TRUE)
rsq.partial(absfit)
# }
Run the code above in your browser using DataLab