# NOT RUN {
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