Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- model.M <- lmer(Enjoyment ~ Stimulus + (1|P_ID), mydata)
- model.Y <- lmer(Flow ~ Stimulus + Enjoyment + (1|P_ID), mydata)
- results = mediate(model.M, model.Y, treat='Stimulus', mediator='Enjoyment',
- boot=TRUE, sims=100)
- summary(results)
Add Comment
Please, Sign In to add comment