# NOT RUN {
data(dietox)
head(dietox)
# }
# NOT RUN {
if (require(ggplot2)){
qplot(Time, Weight, data=dietox, col=Pig) + geom_line() +
theme(legend.position = "none") + facet_grid(Evit~Cu)
} else {
coplot(Weight ~ Time | Evit * Cu, data=dietox)
}
# }
Run the code above in your browser using DataLab