if (FALSE) {
library(agridat)
data(nagai.strawberry.uniformity)
dat <- nagai.strawberry.uniformity
# CV matches Nagai
# with(dat, sd(yield)/mean(yield))
# 23.42
libs(desplot)
desplot(dat, yield ~ col*row,
flip=TRUE, aspect=(5.4)/(43.2), # true aspect
main="nagai.strawberry.uniformity")
}
Run the code above in your browser using DataLab