# NOT RUN {
data(mercer.mangold.uniformity)
dat <- mercer.mangold.uniformity
require(desplot)
desplot(leaves~col*row, data=dat,
aspect=145/302, # true aspect
main="mercer.mangold.uniformity - leaves")
require(desplot)
desplot(roots~col*row, data=dat,
aspect=145/302, # true aspect
main="mercer.mangold.uniformity - roots")
require(lattice)
xyplot(roots~leaves, data=dat)
# }
Run the code above in your browser using DataCamp Workspace