if (FALSE) {
library(agridat)
data(oliveira.potato.uniformity)
dat <- oliveira.potato.uniformity
library(desplot)
desplot(dat, yield ~ col*row,
flip=TRUE, aspect=20/25, tick=TRUE,
main="oliveira.potato.uniformity")
}
Run the code above in your browser using DataLab