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")
# Plot the TLMA forest plot
viz_tlma_forest(x = testmodel)
# Plot the thick variant of the TLMA forest plot with a table showing study
# effects plus their confidence intervals
viz_tlma_forest(x = testmodel, variant = "thick", annotate_CI = TRUE)
}
Run the code above in your browser using DataLab