if (FALSE) {
library(agridat)
data(depalluel.sheep)
dat <- depalluel.sheep
# Not the best view...weight gain is large in the first month, then slows down
# and the linear line hides this fact
libs(lattice)
xyplot(weight ~ date|food, dat, group=animal, type='l', auto.key=list(columns=4),
xlab="Months since start",
main="depalluel.sheep")
}
Run the code above in your browser using DataLab