if (FALSE) {
library(agridat)
data(strickland.tomato.uniformity)
dat <- strickland.tomato.uniformity
mean(dat$yield)
sd(dat$yield)
libs(desplot)
desplot(dat, yield ~ col*row,
main="strickland.tomato.uniformity",
flip=TRUE, aspect=(6*12)/(30*4))
}
Run the code above in your browser using DataLab