# NOT RUN {
data("BSG2014")
# run fast and robust bootstrap test
test <- test_mediation(BSG2014,
x = "ValueDiversity",
y = "TeamCommitment",
m = "TaskConflict")
# data for dot plot
dot <- fortify(test, method = "dot")
plot_mediation(dot)
# data for density plot
density <- fortify(test, method = "density")
plot_mediation(density)
# }
Run the code above in your browser using DataLab