if (FALSE) {
library(agridat)
data(gomez.stripsplitplot)
dat <- gomez.stripsplitplot
# Layout
libs(desplot)
desplot(dat, gen ~ col*row,
out1=rep, col=nitro, text=planting, cex=1,
main="gomez.stripsplitplot")
# Gomez table 4.19, ANOVA of strip-split-plot design
dat <- transform(dat, nf=factor(nitro))
m1 <- aov(yield ~ nf * gen * planting +
Error(rep + rep:nf + rep:gen + rep:nf:gen), data=dat)
summary(m1)
# There is a noticeable linear trend along the y coordinate which may be
# an artifact that blocking will remove, or may need to be modeled.
# Note the outside values in the high-nitro boxplot.
libs("HH")
interaction2wt(yield ~ nitro + gen + planting + row, dat,
x.between=0, y.between=0,
x.relation="free")
}
Run the code above in your browser using DataLab