# NOT RUN {
library(agridat)
data(narain.sorghum.uniformity)
dat <- narain.sorghum.uniformity
# Narain figure 1
libs(desplot)
desplot(dat, yield ~ col*row,
flip=TRUE, aspect=(16*36)/(10*30.25),
main="narain.sorghum.uniformity")
# }
Run the code above in your browser using DataLab