data("BSG2014")
# run fast-and-robust bootstrap test
boot <- test_mediation(BSG2014,
x = "ValueDiversity",
y = "TeamCommitment",
m = "TaskConflict")
summary(boot)
# now compute 97.5% confidence interval
retest(boot, level = 0.975)
Run the code above in your browser using DataLab