# NOT RUN {
data(mtcars)
m1 <- lm(mpg ~ vs + carb + hp + wt + wt * hp , data = mtcars)
test_tilted_slopes(reg.coef = summary(m1)$coef, model = m1,
x_var.name = "wt", moderator.name = "hp", data = mtcars)
# }
Run the code above in your browser using DataLab