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