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