if (requireNamespace("psymetadata", quietly = TRUE)) {
# Get wibbelink2017 data
testdata <- psymetadata::wibbelink2017
# Calculate the three-level meta-analytic model
testmodel <- metafor::rma.mv(yi,
vi,
random = ~ 1 | study_id/es_id,
tdist = TRUE,
data = testdata,
method = "REML")
# Create a table with study-level information
viz_tlma_studyinfo(testmodel)
}
Run the code above in your browser using DataLab