Peer Support Interventions
Meta-Analytic Database of Randomized Controlled Trials /
© The Metapsy Collaboration
Additional Information
This online meta-analysis tool allows to explore a simplified version of the “Peer Support” dataset. The code used to simplify the data for this application can be downloaded here.
Outcome Selection
✓ selected
✓ selected
✓ selected
In the tab "Select outcome" you can decide which of our three outcome variables you are interested in: clinical, personal or functional recovery.
Not all studies in our database report all of these outcome variables. Once you have selected in which outcome you are interested, only the studies that report on this outcome will be shown in the table on this page. All the filters that you select in this sidebar will also only affect those studies. You can always go back to "Select Outcome" to select the another outcome.
Meta-Analysis Results
By default, the web application automatically makes a few decisions concerning the analysis settings. These analysis settings can be seen below under "Analysis Settings". By default, the application uses a Random-Effects Pooling Model for your meta-analysis. This is nearly always the correct choice when one is analyzing data in mental health research. In addition, the Restricted Maximum-Likelihood estimator is used by default to calculate the between-study heterogeneity of your meta-analysis. However, when clicking on the dropdown menu "Pooling Model", you can see that there are various estimators available when assuming a Random-Effects (RE) model. Sometimes, the choice of the between-study heterogeneity estimator can have an impact on the pooled results, and not every estimator is optimal under all circumstances. If you want to learn more about this, you can consult Harrer, Cuijpers, Furukawa & Ebert, 2020. It is also possible to calculate effects using a Fixed-Effect Model; but this model should only be used if you have good reasons for applying it.
Under "Analyzed Moderators", the moderating variables which are currently inspected in meta-regression/subgroup analyses in the "Moderator Analysis" tab are shown. By default, the publication year is used for a meta-regression on your selected data, and the country/region of a study is used as a subgroup analysis. You can easily add more moderator analyses by clicking on the white box. A dropdown will then appear, showing you more variables which are available. You can then add those variables by clicking on them. It is also possible to remove variables. To do that, again click on the white box and use the backspace ← key.
By default, the application also uses Knapp-Hartung adjustments to calculate the confidence interval for your meta-analysis result. It is possible to disable this method by unchecking the "Use Knapp-Hartung Adjustments" checkbox. You can learn more about this method in Harrer, Cuijpers, Furukawa & Ebert, 2020.
Finally, after you have completed the reconfiguration of your meta-analysis settings, simply click the "Re-run Meta-Analysis" button. This will reculate the results of your meta-analysis, using the new settings you have provided. Please note that the reanalysis may take some time before it is finished.
Analysis Settings
Main Results
Heterogeneity:
Removed as outliers:
As a sensitivity analysis, it can be helpful to identify potentially outlying studies and how they might affect the pooled result. This is particularly helpful when the heterogeneity of a meta-analysis is high. In this tab, the pooled effect without outlying studies is presented. Especially if the pooled effect without outliers has a lower heterogeneity than the original one, it can be helpful to also take this estimate into account for further decision making. If no outliers are detected, the results in this tab will be identical to the ones in the main analysis.
Subgroup Analysis
About the Metapsy Database Web App
This application was developed by researchers at the Vrije Universiteit Amsterdam, The Netherlands, the Friedrich-Alexander-Universität Erlangen-Nürnberg, Germany, and the Technical University Munich, Germany. The data are based on a meta-analytic database that was developed by researchers at the Vrije Universiteit Amsterdam in the past 14 years.
This project, led by Prof. Pim Cuijpers and Dr. Eirini Karyotaki, has resulted in a long series of published studies in peer-reviewed journals. Researchers from the Friedrich-Alexander-Universität in Germany, led by Mathias Harrer and Dr. David Ebert (Technical University Munich), have developed the web application and the automated analyses that are conducted online.
About the Metapsy Web Application
This web application serves as an interface to the Metapsy meta-analytic database. The application uses a Shiny server instance to access the database, enable data downloads, and handle computations using state-of-the-art meta-analytic techniques.
The meta (Balduzzi, Rücker & Schwarzer, 2019) and dmetar (Harrer, Cuijpers, Furukawa & Ebert, 2020) R packages are used to perform the meta-analyses.
The metagen function is used internally to perform the meta-analytic pooling. By default, the Restricted Maximum-Likelihood estimator (Viechtbauer, 2005) is used to estimate the between-study heterogeneity/variance τ2 in a random-effects model; REML is also used for meta-regressions. To calculate the Number Needed to Treat (NNT), the method by Furukawa and Leucht (Furukawa & Leucht, 2011) is used, assuming Control Event Rate (CER) of 0.19, which is derived from Cuijpers et al., 2014. For subgroup analyses, the subgroup.analysis.mixed.effects function is used, implementing a mixed-effect model for which results within subgroups are pooled using a random-effects model (inheriting the τ2-estimator specified for the overall analysis), and results between subgroups are compared assuming a fixed-effects model.
To generate forest plots, the forest function in meta is used.
Outlier selection is conducted using the find.outliers function in dmetar. The function implements a simple outlier removal algorithm where all results for which the 95% confidence interval is outside the 95% confidence interval of the pooled effect are removed as outliers. Due to high computational costs, sensitivity analyses based on the “Leave-One-Out” paradigm are not conducted for large meta-analyses (k>50). For smaller meta-analyses, a Baujat plot (Baujat et al., 2002) is created using the baujat function in meta.
Publication bias analyses are conducted using the eggers.test function in dmetar (which is a wrapper for the metabias function in meta). A P-curve is created using the pcurve function in dmetar. Please note that several prerequisites should be considered before P-curves can be interpreted (Simonsohn et al., 2014).
For the risk of bias overview, the rob.summary function in dmetar is used.
The metapsyData Package
The metapsyData package allows you to access the meta-analytic psychotherapy databases in R. To install the package, use the following code:
if (!require("devtools"))
install.packages("devtools")
devtools::install_github("metapsy-project/metapsyData")
The metapsyData package allows to access the Metapsy meta-analytic psychotherapy databases direct in your R environment. Once installed, simply run the getData() function to save the data locally. The documentation of the package is also hosted here.
Here is an example:
library(metapsyData)
library(dplyr)
d <- getData("peer-support")
glimpse(d$data)
#> Rows: 66
#> Columns: 64
#> $ study <chr> "Boevink, 2016", "Boevink, 2016", "Boevink, 2016", "Castelein, 2…
#> $ outcome_category <chr> "Clinical recovery", "Functional recovery", "Personal recovery",…
#> $ condition_arm1 <chr> "Peer support", "Peer support", "Peer support", "Peer support", …
#> $ condition_arm2 <chr> "WL", "WL", "WL", "WL", "WL", "WL", "WL", "WL", "WL", "CAU", "CA…
#> $ multi_arm1 <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ multi_arm2 <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ outcome_type <chr> "msd", "msd", "msd", "msd", "msd", "msd", "msd", "msd", "msd", "…
#> $ instrument <chr> "CAPE", "Lancashire Quality of Life Profile", "Boston Empowermen…
#> $ outcome_subcategory <chr> "Psychosis", "QoL", "Empowerment/Self-efficacy", "QoL", "Empower…
#> $ time <chr> "post", "post", "post", "post", "post", "post", "post", "post", …
#> $ time_weeks <dbl> 12.0, 12.0, 12.0, 8.0, 8.0, 2.0, 2.0, 2.0, 3.5, 8.0, 8.0, 8.0, 8…
#> $ .g <dbl> -0.050000000, 0.113364493, -0.203440096, 0.160994335, 0.20250164…
#> $ .g_se <dbl> 0.17000000, 0.17097096, 0.17003743, 0.19347881, 0.19366264, 0.09…
#> $ mean_arm1 <dbl> 1.80, 4.63, 2.73, 60.90, 67.50, 0.72, 13.70, 92.90, 94.84, 23.00…
#> $ sd_arm1 <dbl> 0.38, 1.28, 0.26, 10.00, 12.00, 0.64, 2.97, 14.20, 12.83, 8.04, …
#> $ n_arm1 <dbl> 65, 64, 65, 56, 56, 224, 224, 222, 170, 34, 34, 34, 55, 55, 24, …
#> $ mean_arm2 <dbl> 1.78, 4.49, 2.79, 59.20, 64.80, 0.85, 13.50, 90.00, 91.01, 25.20…
#> $ sd_arm2 <dbl> 0.46, 1.18, 0.32, 11.00, 14.50, 0.70, 2.79, 13.70, 14.36, 8.92, …
#> $ n_arm2 <dbl> 73, 72, 73, 50, 50, 234, 234, 231, 172, 33, 33, 34, 55, 55, 21, …
#> $ mean_change_arm1 <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ mean_change_arm2 <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ sd_change_arm1 <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ sd_change_arm2 <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ n_change_arm1 <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ n_change_arm2 <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ dich <chr> NA, NA, NA, NA, "EPDS > 12", NA, NA, "CES-D > 16", NA, NA, NA, "…
#> $ event_arm1 <dbl> NA, NA, NA, NA, 3, NA, NA, 35, NA, NA, NA, 5, NA, NA, NA, NA, NA…
#> $ event_arm2 <dbl> NA, NA, NA, NA, 11, NA, NA, 52, NA, NA, NA, 7, NA, NA, NA, NA, N…
#> $ totaln_arm1 <dbl> NA, NA, NA, NA, 20, NA, NA, 52, NA, NA, NA, 21, NA, NA, NA, NA, …
#> $ totaln_arm2 <dbl> NA, NA, NA, NA, 22, NA, NA, 71, NA, NA, NA, 20, NA, NA, NA, NA, …
#> $ precalc_g <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 0.459, NA, 0…
#> $ precalc_g_se <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 0.254, NA, 0…
#> $ precalc_log_rr <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ precalc_log_rr_se <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ baseline_m_arm1 <chr> "NR", NA, NA, NA, NA, "0.76", NA, NA, NA, "26.8", NA, NA, NA, NA…
#> $ baseline_sd_arm1 <chr> "NR", NA, NA, NA, NA, "0.72", NA, NA, NA, "7.61", NA, NA, NA, NA…
#> $ baseline_n_arm1 <chr> "NR", NA, NA, NA, NA, "251", NA, NA, NA, "34", NA, NA, NA, NA, N…
#> $ baseline_mean_arm2 <dbl> NA, NA, NA, NA, NA, 0.73, NA, NA, NA, 27.40, NA, NA, NA, NA, NA,…
#> $ baseline_sd_arm2 <dbl> NA, NA, NA, NA, NA, 0.73, NA, NA, NA, 8.75, NA, NA, NA, NA, NA, …
#> $ baseline_n_arm2 <dbl> NA, NA, NA, NA, NA, 268, NA, NA, NA, 33, NA, NA, NA, NA, NA, 70,…
#> $ year <dbl> 2016, 2016, 2016, 2008, 2008, 2012, 2012, 2012, 2012, 2017, 2017…
#> $ country <chr> "NL", "NL", "NL", "NL", "NL", "USA", "USA", "USA", "USA", "USA",…
#> $ specific_group <chr> "No", "No", "No", "No", "No", "No", "No", "No", "No", "Yes", "Ye…
#> $ perinatal <chr> "No", "No", "No", "No", "No", "No", "No", "No", "No", "No", "No"…
#> $ disorder <chr> "SMI", "SMI", "SMI", "SMI", "SMI", "SMI", "SMI", "SMI", "SMI", "…
#> $ diagnosis_inclusion <chr> "diagnosis", "diagnosis", "diagnosis", "diagnosis", "diagnosis",…
#> $ recruitment <chr> "Clinical", "Clinical", "Clinical", "Clinical", "Clinical", "Mix…
#> $ in_out_patients <chr> "Inpatients + outpatients", "Inpatients + outpatients", "Inpatie…
#> $ percent_women <dbl> 47.40, 47.40, 47.40, 34.50, 34.50, 66.00, 66.00, 66.00, 55.60, 3…
#> $ mean_age <dbl> 43.90, 43.90, 43.90, 38.55, 38.55, 45.80, 45.80, 45.80, 42.80, 5…
#> $ format <chr> "Group", "Group", "Group", "Group", "Group", "Group", "Group", "…
#> $ delivery <chr> "Face to face", "Face to face", "Face to face", "Face to face", …
#> $ delivery2 <chr> "In person", "In person", "In person", "In person", "In person",…
#> $ duration_int <chr> "12 months", "104 weeks total duration. 52 weeks before first as…
#> $ structure_intervention <chr> "Structured", "Structured", "Structured", "Unstructured", "Unstr…
#> $ RoB_D1 <chr> "Some concerns", "Some concerns", "Some concerns", "Low risk", "…
#> $ RoB_D2 <chr> "Low risk", "Low risk", "Low risk", "Low risk", "Low risk", "Low…
#> $ RoB_D3 <chr> "Some concerns", "Some concerns", "Some concerns", "Low risk", "…
#> $ RoB_D4 <chr> "Some concerns", "Some concerns", "Some concerns", "Some concern…
#> $ RoB_D5 <chr> "Some concerns", "Some concerns", "Some concerns", "Some concern…
#> $ overall_RoB <chr> "High risk", "High risk", "High risk", "Some concerns", "Some co…
#> $ rating <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ .id <chr> "Boevink_2016_msd_CAPE_post_12.0_NA_Peersupport_WL_NA_NA", "Boev…
#> $ rob <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 3, 3, 0…
The raw data files can be accessed in the associated GitHub repository under data. To search for available databases in metapsyData, run the listData() function.
Citation
You can run citation("metapsyData") to retrieve the preferred citation.