# NOT RUN {
data(kalamkar.potato.uniformity)
dat <- kalamkar.potato.uniformity
# True field dimension is 132 foot-long row horizontal, 96*3=288 feet vertical
# Similar to figure 1 of Kalamkar
desplot(yield~col*row, data=dat, main="kalamkar.potato.uniformity",
flip=TRUE, tick=TRUE, aspect=288/132)
# }
Run the code above in your browser using DataLab