if (FALSE) {
library(agridat)
data(khin.rice.uniformity)
dat <- khin.rice.uniformity
libs(desplot)
desplot(dat, yield ~ col*row,
flip=TRUE,
main="khin.rice.uniformity",
aspect=(36*3)/(30*3)) # true aspect
}
Run the code above in your browser using DataLab