if (FALSE) {
data(evans.sugarcane.uniformity)
dat <- evans.sugarcane.uniformity
libs(desplot)
desplot(dat, yield ~ col*row,
flip=TRUE, aspect=(5*50)/(142*5), # true aspect
main="evans.sugarcane.uniformity")
table( substring(dat$yield,3) ) # yields ending in 0,5 are much more common
}
Run the code above in your browser using DataLab