data("BSG2014")
# inside formula
fit_mediation(TeamCommitment ~ m(TaskConflict) + ValueDiversity,
data = BSG2014)
# outside formula
mediator <- with(BSG2014, m(TaskConflict))
fit_mediation(TeamCommitment ~ mediator + ValueDiversity,
data = BSG2014)
Run the code above in your browser using DataLab