if (FALSE) {
library(agridat)
data(love.cotton.uniformity)
# omit first column which has 20-foot plots
dat <- subset(love.cotton.uniformity, col > 1)
libs(desplot)
desplot(dat, yield ~ col*row,
flip=TRUE, aspect=20/80, # just a guess
main="love.cotton.uniformity")
}
Run the code above in your browser using DataLab