if (FALSE) {
data(buntaran.wheat)
library(agridat)
dat <- buntaran.wheat
library(lattice)
bwplot(yield~loc|zone, dat, layout=c(1,3),
scales=list(x=list(rot=90)),
main="buntaran.wheat")
}
Run the code above in your browser using DataLab