# NOT RUN {
# iris data
model <- lm(Sepal.Width ~ Sepal.Length * Species, data=iris)
graph_model_q(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_q(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_q(model, y='total.fruits', x='nutrient', lines='amd')
}
# }
Run the code above in your browser using DataLab