# NOT RUN {
data(hunter.corn)
dat <- hunter.corn
dat <- transform(dat, env=factor(paste(loc,year)))
require(lattice)
xyplot(yield~nitro|env, dat, type='b',
main="hunter.corn - nitrogen response curves")
# }
Run the code above in your browser using DataLab