if (FALSE) {
library(agridat)
data(shafi.tomato.uniformity)
dat <- shafi.tomato.uniformity
libs(desplot)
desplot(dat, yield ~ col*row,
aspect=40/20, # true aspect
main="shafi.tomato.uniformity")
}
Run the code above in your browser using DataLab