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