if (FALSE) {
library(agridat)
data(athulya.rice.uniformity)
dat <- athulya.rice.uniformity
mean(dat$yield) # source says 391.13
libs(desplot)
desplot(dat, yield ~ col*row,
flip=TRUE, tick=TRUE, aspect=1.2/1.2,
main="athulya.rice.uniformity")
}
Run the code above in your browser using DataLab