if (FALSE) {
library(agridat)
data(mercer.mangold.uniformity)
dat <- mercer.mangold.uniformity
libs(desplot)
desplot(dat, leaves~col*row,
aspect=145/302, # true aspect
main="mercer.mangold.uniformity - leaves")
libs(desplot)
desplot(dat, roots~col*row,
aspect=145/302, # true aspect
main="mercer.mangold.uniformity - roots")
libs(lattice)
xyplot(roots~leaves, data=dat)
}
Run the code above in your browser using DataLab