# NOT RUN {
model <- lm(Sepal.Width ~ Species * Petal.Length, data = iris)
slopes <- estimate_slopes(model, trend = "Petal.Length")
slopes
effectsize::standardize(slopes)
# }
# NOT RUN {
if (require("rstanarm")) {
model <- stan_glm(Sepal.Width ~ Species * Petal.Length, data = iris, refresh = 0)
estimate_slopes(model)
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab