library(lavaan)
data(data_mod_2x2w)
lm_out <- lm(y ~ x1*w1 + x2*w2 + c1 + c2, data_mod_2x2w)
out1 <- cond_effects(
wlevels = "w1",
x = "x1",
fit = lm_out
)
out1
plot(out1, graph_type = "tumble")
out2 <- cond_effects(
wlevels = "w2",
x = "x2",
fit = lm_out
)
out2
plot(out2, graph_type = "tumble")
Run the code above in your browser using DataLab