fit <- lm_model(
data = iris,
response_variable = Sepal.Length,
predictor_variable = dplyr::everything(),
three_way_interaction_factor = c(Sepal.Width, Petal.Width, Petal.Length)
)
simple_slope_fit <- simple_slope(
model = fit,
)
Run the code above in your browser using DataLab