# NOT RUN {
# iris data
if (require(nlme, quietly=TRUE)) {
model <- lme(Sepal.Width ~ Sepal.Length * Petal.Length, random=~1|Species, data=iris)
summary(model) # significant interaction
simple_slopes(model)
simple_slopes(model,
levels=list(Sepal.Length=c(4, 5, 6, 'sstest'),
Petal.Length=c(2, 3, 'sstest'))) # test at specific levels
}
# }
Run the code above in your browser using DataLab