# NOT RUN {
data(nonnecke.peas.uniformity)
dat <- nonnecke.peas.uniformity
require(desplot)
desplot(vines~col*row|block, data=dat,
tick=TRUE, flip=TRUE, aspect=248/90, # true aspect
main="nonnecke.peas.uniformity - vines")
desplot(peas~col*row|block, data=dat,
tick=TRUE, flip=TRUE, aspect=248/90, # true aspect
main="nonnecke.peas.uniformity - peas")
require(lattice)
xyplot(peas~vines|block,dat,
xlab="vine weight", ylab="shelled pea weight",
main="nonnecke.peas.uniformity")
# }
Run the code above in your browser using DataLab