powered by
dat <- li.millet.uniformity mean(dat$yield) # matches Li et al. desplot(yield~col*row, dat, main="li.millet.uniformity")
Run the code above in your browser using DataLab