if (FALSE) {
library(agridat)
data(rothamsted.brussels)
dat <- rothamsted.brussels
libs(lattice)
bwplot(yield~trt, dat, main="rothamsted.brussels")
libs(desplot)
desplot(dat, yield~col*row,
num=trt, out1=block, cex=1, # aspect unknown
main="rothamsted.brussels")
}
Run the code above in your browser using DataLab