data("BSG2014")
# run fast-and-robust bootstrap test
robust_boot <- test_mediation(BSG2014,
x = "ValueDiversity",
y = "TeamCommitment",
m = "TaskConflict",
level = 0.9,
robust = TRUE)
confint(robust_boot, type = "boot")
# run OLS bootstrap test
ols_boot <- test_mediation(BSG2014,
x = "ValueDiversity",
y = "TeamCommitment",
m = "TaskConflict",
level = 0.9,
robust = FALSE)
confint(ols_boot, type = "data")
Run the code above in your browser using DataLab