Displaying 1 result from an estimated 1 matches for "effvar".
Did you mean:
efever
2012 Jun 06
3
Sobel's test for mediation and lme4/nlme
...;- lme(out ~ pred + med, random=~1|grpid, data = NEWDAT)
model3 <- lme(med ~ pred, random=~1|grpid, data = NEWDAT)
mod1.out <- summary(model1)$tTable
mod2.out <- summary(model2)$tTable
mod3.out <- summary(model3)$tTable
indir <- mod3.out[2, 1] * mod2.out[3, 1]
effvar <- (mod3.out[2, 1])^2 * (mod2.out[3, 2])^2 + (mod2.out[3,
1])^2 * (mod3.out[2, 2])^2
serr <- sqrt(effvar)
zvalue = indir/serr
out <- list(Model.1 = mod1.out, Model.2 = mod2.out, Model.3 = mod3.out,
Indirect.Effect = indir, SE = serr, z.value = zvalue,
N...