作业内容:
完成《线性统计模型》(王松桂等)习题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))