# NOT RUN {
data(wvs94b)
## Get the indirect and the direct effects and
## their sampling covariance matrices for each study
indirect1 <- indirectEffect(wvs94b$data, wvs94b$n)
indirect1
## Multivariate meta-analysis on the indirect and direct effects
indirect2 <- meta(indirect1[, c("ind_eff", "dir_eff")],
indirect1[, c("ind_var", "ind_dir_cov", "dir_var")])
summary(indirect2)
# }
Run the code above in your browser using DataLab