if (FALSE) {
library(agridat)
data(nonnecke.peas.uniformity)
dat <- nonnecke.peas.uniformity
libs(desplot)
desplot(dat, vines~col*row|block,
tick=TRUE, flip=TRUE, aspect=248/90, # true aspect
main="nonnecke.peas.uniformity - vines")
desplot(dat, peas~col*row|block,
tick=TRUE, flip=TRUE, aspect=248/90, # true aspect
main="nonnecke.peas.uniformity - peas")
libs(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