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