if (FALSE) {
library(agridat)
data(kirk.potato)
dat <- kirk.potato
libs(desplot)
desplot(dat, yield ~ col*row,
flip=TRUE, aspect=1,
main="kirk.potato")
# Match means in Table I
libs(dplyr)
dat
}
Run the code above in your browser using DataLab