if (FALSE) {
library(agridat)
data(arankacami.groundnut.uniformity)
dat <- arankacami.groundnut.uniformity
require(desplot)
desplot(dat, yield ~ col*row,
flip=TRUE, aspect=(12*.75)/(8*4),
main="arankacami.groundnut.uniformity")
}
Run the code above in your browser using DataLab