if (FALSE) {
library(agridat)
data(borden.sugarcane.uniformity)
dat <- borden.sugarcane.uniformity
libs(desplot)
desplot(dat, yield ~ col*row|year,
aspect=(400)/(300), # rough average size of 2 years
tick=TRUE, flip=TRUE,
main="borden.sugarcane.uniformity")
}
Run the code above in your browser using DataLab