# NOT RUN {
fm1 <- aov(breaks ~ wool + tension, data = warpbreaks)
ScheffeTest(x=fm1)
ScheffeTest(x=fm1, which="tension")
TukeyHSD(fm1)
# some special contrasts
y <- c(7,33,26,27,21,6,14,19,6,11,11,18,14,18,19,14,9,12,6,
24,7,10,1,10,42,25,8,28,30,22,17,32,28,6,1,15,9,15,
2,37,13,18,23,1,3,4,6,2)
group <- factor(c(1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,3,3,3,3,3,
3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6))
r.aov <- aov(y ~ group)
ScheffeTest(r.aov, contrasts=matrix( c(1,-0.5,-0.5,0,0,0,
0,0,0,1,-0.5,-0.5), ncol=2) )
# just p-values:
ScheffeTest(r.aov, conf.level=NA)
# }
Run the code above in your browser using DataLab