# NOT RUN {
# mtcars data
mtcars$am <- factor(mtcars$am) # make 'am' categorical
model <- lm(mpg ~ wt * am, data=mtcars)
summary(model) # significant interaction
simple_slopes(model)
simple_slopes(model,
levels=list(wt=c(2, 3, 4, 'sstest'), am=c(0, 1, 'sstest'))) # test at specific levels
# }
Run the code above in your browser using DataLab