if (FALSE) {
library(agridat)
data(jones.corn.uniformity)
dat <- jones.corn.uniformity
library(desplot)
# Compare to figure 5 of Jones et al.
desplot(dat, yield ~ col*row,
aspect=(12*4.6)/(12*3),
main="jones.corn.uniformity")
}
Run the code above in your browser using DataLab