if (FALSE) {
libs(agridat)
data(wehner.cucumber.uniformity)
dat <- wehner.cucumber.uniformity
require(desplot)
desplot(dat, yield ~ col*row,
flip=TRUE, tick=TRUE, aspect=(25 * 1.5)/(22 * 1.5),
main="wehner.cucumber.uniformity")
}
Run the code above in your browser using DataLab