## 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)
# ## End(Not run)
Run the code above in your browser using DataLab