# NOT RUN {
data("BSG2014")
test <- test_mediation(BSG2014,
x = "ValueDiversity",
y = "TeamCommitment",
m = "TaskConflict")
summary(test)
# }
Run the code above in your browser using DataLab