if (FALSE) {
library(agridat)
data(jegorow.oats.uniformity)
dat <- jegorow.oats.uniformity
mean(dat$yield) # Jegorow reports 2.03
libs(desplot)
desplot(dat, yield~col*row,
aspect=10/24, flip=TRUE, tick=TRUE,
main="jegorow.oats.uniformity")
}
Run the code above in your browser using DataLab