# NOT RUN {
# iris data
model <- lm(Sepal.Width ~ Sepal.Length * Species, data=iris)
graph_model(model, y=Sepal.Width, x=Sepal.Length, lines=Species)
# Orthodont data
if (require(nlme, quietly=TRUE)) {
model <- lme(distance ~ age * Sex, data=Orthodont, random=~1|Subject)
graph_model(model, y=distance, x=age, lines=Sex)
}
# Arabidopsis data
if (require(lme4, quietly=TRUE)) {
model <- lmer(total.fruits ~ nutrient * amd + rack + (1|gen), data=Arabidopsis)
graph_model(model, y=total.fruits, x=nutrient, lines=amd)
}
# }
Run the code above in your browser using DataLab