data("BSG2014")
# \donttest{
# BCa intervals are recommended, but take a while to run
boot <- test_mediation(BSG2014,
x = "ValueDiversity",
y = "TeamCommitment",
m = "TaskConflict",
type = "bca")
p_value(boot)
# }
Run the code above in your browser using DataLab