if (FALSE) {
library(agridat)
data(trought.cotton.uniformity)
dat <- trought.cotton.uniformity
libs(desplot)
desplot(dat, yield ~ col*row,
flip=TRUE, tick=TRUE, aspect=(24*.9)/(8*12.5),
main="trought.cotton.uniformity")
}
Run the code above in your browser using DataLab