# NOT RUN {
data(strickland.tomato.uniformity)
dat <- strickland.tomato.uniformity
mean(dat$yield)
sd(dat$yield)
require(desplot)
desplot(yield ~ col*row, dat,
main="strickland.tomato.uniformity",
flip=TRUE, aspect=(6*12)/(30*4))
# }
Run the code above in your browser using DataCamp Workspace