data(dietox)
head(dietox)
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