# NOT RUN {
data("BSG2014")
# run fast and robust bootstrap test
robust_boot <- test_mediation(BSG2014,
x = "ValueDiversity",
y = "TeamCommitment",
m = "TaskConflict",
robust = TRUE)
# create plots for robust bootstrap test
plot(robust_boot, which = "ci")
plot(robust_boot, which = "density")
plot(robust_boot, which = "ellipse")
# }
Run the code above in your browser using DataLab