if (FALSE) {
library(agridat)
data(gomez.heterogeneity)
dat <- gomez.heterogeneity
libs(lattice)
xyplot(yield ~ tillers, dat, groups=gen,
type=c("p","r"),
main="gomez.heterogeneity")
}
Run the code above in your browser using DataLab