if (FALSE) {
library(agridat)
data(matusgutierrez.maize.uniformity)
dat <- matusgutierrez.maize.uniformity
require(desplot)
desplot(dat, yield ~ col*row,
flip=TRUE, tick=TRUE, aspect=(36*0.75)/(16*3),
main="matusgutierrez.maize.uniformity")
}
Run the code above in your browser using DataLab