if (FALSE) {
library(agridat)
libs(desplot)
data(odland.soyhay.uniformity)
dat1 <- odland.soyhay.uniformity
desplot(dat1, yield ~ col*row,
flip=TRUE, aspect=200/105, # true aspect
main="odland.soyhay.uniformity")
data(odland.soybean.uniformity)
dat2 <- odland.soybean.uniformity
desplot(dat2, yield ~ col*row,
flip=TRUE, aspect = 232/137,
main="odland.soybean.uniformity")
}
Run the code above in your browser using DataLab