回归分析作业5

作业内容：

完成《线性统计模型》（王松桂等）习题6.4,6.6,6.9

参考实现（use R）

battery<-data.frame(
X=c(40,48,38,42,45,46,26,34,30,28,32,33,39,40,48,50,50,52),
A=gl(3,6)
)
summary(aov(X~A,battery))
TukeyHSD(aov(X~A,battery))

machine<-data.frame(
X=c(50,47,47,53,63,54,57,58,52,42,41,48),
A=gl(3,4),
B=gl(4,1,12)
)
summary(aov(X~A+B,machine))

chemistry<-data.frame(
X=c(14,10,11,11,13,19,10,12,9,7,10,8,7,11,6,10,5,11,13,14,12,13,14,10),
A=gl(3,8,24,labels=c("2","4","6")),
B=gl(4,2,24,labels=c("10","24","38","52"))
)
summary(aov(X~A+B+A:B,chemistry))
summary(aov(X~A+B,chemistry))