# NOT RUN {
data(scotvote)
attach(scotvote)
## Table 4.3
scotvote
## Table 5.3
scottish.vote.glm <- glm((PerYesTax) ~ CouncilTax*PerClaimantFemale+
StdMortalityRatio+Active+GDP+Percentage5to15,
family=Gamma,data=scotvote)
vote.sum <- summary(scottish.vote.glm)
round(cbind(
vote.sum$coefficients[,1], vote.sum$coefficients[,2],
confint(scottish.vote.glm)),4)
vote.sum
## Table 6.3
anova(scottish.vote.glm,test="F")
# }
Run the code above in your browser using DataLab