if (FALSE) {
library(agridat)
data(cargneluttifilho.chickpea.uniformity)
dat <- cargneluttifilho.chickpea.uniformity
library(dplyr) # Match source paper, table 1
dat |> group_by(trial) |> summarize(mn=mean(yield), cv=sd(yield)/mean(yield))
library(desplot)
desplot(dat, yield ~ col*row|trial,
flip=TRUE, tick=TRUE, aspect=1,
main="cargneluttifilho.chickpea.uniformity")
}
Run the code above in your browser using DataLab