The goal of Metaan package is to help user to compute a Meta-Analysis of Published Epidemiological Studies.
This package helps to combine estimates from published individual studies and provide a summarized or a pooled estimate of evidence. It makes use of statistical methods of meta-analysis computation such as the fixed effect model and the random effect model. These methods are ready for risk estimates (e.g relative risk (RR), odds ratio (OR) and hazard ratio (HR)) meta-analyses but are improved using the alternative method of Richardson et al. 2020 for the computation of excess relative risk (ERR) estimates metanalyses.
You can install the released version of Metaan from CRAN with:
install.packages("Metaan")
library(Metaan)
install.packages("devtools") # if you do not have it already
::install_github("Package-Metaan-Rep/Metaan")
devtoolslibrary(Metaan)
Formate the dataset in order to have your individual studies in lines with the following columns :
An example from the ischemic heart disease (IHD) dataset:
data(IHD)
print(IHD)
#> Study err lower_ci upper_ci max_dose
#> 1 Azizova et al. 2010 0.12 0.051 0.186 5.92
#> 2 Ivanov et al. 2006 0.41 0.050 0.780 0.50
#> 3 Lane et al. 2010 0.15 -0.140 0.580 0.12
#> 4 Laurent et al. 2010 4.10 -2.900 13.700 0.60
#> 5 Muirhead et al. 2009 0.26 -0.050 0.610 0.40
#> 6 Shimizu et al. 2010 0.02 -0.100 0.150 4.00
#> 7 Vrijheid et al. 2007 -0.01 -0.590 0.690 0.50
#> 8 Yamada et al. 2004 0.05 -0.050 0.160 4.00
In this example, the “Study” column contains information on the Authors and on the date of the study. “err” is the value expressing the excess relative risk (err) reported from the study. “lower_ci” is the value of the lower bound of the confidence interval of the risk reported from the study. “upper_ci” is the upper bound of the confidence interval of the risk reported from the study and the “max_dose” column gives the maximum dose (in millisievert mSv) reported from the study.
To estimate the pooled effect from this set of studies, we will make use of functions “alpexfix” or “alpexrand” for respectively estimate using the alternative fixed effect model or the alternative random effect model. For more details about the alternative model, I recommend you this interesting article Richardson et al. 2020, and to know more the fixed and the random effect models, there is some references at the end of the tutorial.
alpexfix(err=IHD$err,
u=IHD$upper_ci,
l=IHD$lower_ci,
d=IHD$max_dose)
#>
#> Alternative meta-analysis with fixed effect model
#> ----------------------------------------------------
#>
#> Effect SE-Log(Effect) Lower CI Upper CI
#> 0.10 0.00 0.05 0.15
#>
#> ----------------------------------------------------
#>
#> Test of heterogeneity
#>
#> Cochran Q statistic Degree of Freedom P-Value
#> 7.92 7.00 0.34
#>
#> ----------------------------------------------------
#>
#> Higgins and Thompson I^2 (%)
#> 11.64
#> ____________________________________________________
#>
alpexrand(err=IHD$err,
u=IHD$upper_ci,
l=IHD$lower_ci,
d=IHD$max_dose)
#>
#> Alternative meta-analysis with random effect model
#> ----------------------------------------------------
#>
#> Effect SE-Log(Effect) Lower CI Upper CI
#> 0.10 0.00 0.04 0.16
#>
#> ----------------------------------------------------
#>
#> Test of heterogeneity
#>
#> Cochran Q statistic Degree of Freedom P-Value
#> 7.92 7.00 0.34
#>
#> ----------------------------------------------------
#>
#> Higgins and Thompson I^2 (%)
#> 11.64
#> ____________________________________________________
#>
These functions estimate the summary effect using the correction method proposed by Richardson et al. 2020. However user can choose to use the standard model without correction. To do so, user can choose the following functions “pexfix” and “pexrand”.
pexfix(err=IHD$err,
u=IHD$upper_ci,
l=IHD$lower_ci)
#>
#> Standard meta-analysis with fixed effect model
#> -------------------------------------------------
#>
#> Effect SE Effect Lower CI Upper CI
#> 0.10 0.03 0.05 0.15
#>
#> -------------------------------------------------
#>
#> Test of heterogeneity
#>
#> Cochran Q statistic Degree of Freedom P-Value
#> 7.52 7.00 0.38
#>
#> -------------------------------------------------
#>
#> Higgins and Thompson I^2 (%)
#> 6.91
#> _________________________________________________
#>
pexrand(err=IHD$err,
u=IHD$upper_ci,
l=IHD$lower_ci)
#>
#> Standard meta-analysis with random effect model
#> -------------------------------------------------
#>
#> Effect SE Effect Lower CI Upper CI
#> 0.10 0.03 0.04 0.15
#>
#> -------------------------------------------------
#>
#> Test of heterogeneity
#>
#> Cochran Q statistic Degree of Freedom P-Value
#> 7.52 7.00 0.38
#>
#> -------------------------------------------------
#>
#> Higgins and Thompson I^2 (%)
#> 6.91
#> _________________________________________________
#>
exsens(study = IHD$Study,
err=IHD$err,
u=IHD$upper_ci,
l=IHD$lower_ci,
d=IHD$max_dose,
test = "RANDOM", # you can choose test="FIXED" for the fixed effect model
model = "alternative") # you can choose model = "standard" for the fixed effect model
#> Warning in log((C * u + 1)/(C * l + 1)): production de NaN
#> ALTERNATIVE RANDOM EFFECT MODEL EXCESS RISK ESTIMATE
#> Study Effect SE(Effect) Lower CI Upper CI
#> 1 Yamada et al. 2004 0.11 0.00 0.03 0.19
#> 2 Vrijheid et al. 2007 0.10 0.00 0.03 0.17
#> 3 Shimizu et al. 2010 0.11 0.00 0.05 0.17
#> 4 Muirhead et al. 2009 0.09 0.00 0.03 0.16
#> 5 Laurent et al. 2010 0.10 0.00 0.04 0.16
#> 6 Lane et al. 2010 NaN NaN NaN NaN
#> 7 Ivanov et al. 2006 0.09 0.00 0.04 0.14
#> 8 Azizova et al. 2010 0.08 0.01 -0.02 0.16
exsens(study = IHD$Study,
err=IHD$err,
u=IHD$upper_ci,
l=IHD$lower_ci, # d=NULL when using the standard model with model = "standard"
test = "RANDOM", # you can choose test="FIXED" for the fixed effect model
model = "standard")
#> STANDARD RANDOM EFFECT MODEL EXCESS RISK ESTIMATE
#> Study Effect SE(Effect) Lower CI Upper CI
#> 1 Yamada et al. 2004 0.11 0.04 0.04 0.18
#> 2 Vrijheid et al. 2007 0.10 0.03 0.03 0.16
#> 3 Shimizu et al. 2010 0.11 0.03 0.06 0.17
#> 4 Muirhead et al. 2009 0.09 0.03 0.03 0.15
#> 5 Laurent et al. 2010 0.10 0.03 0.04 0.15
#> 6 Lane et al. 2010 0.09 0.03 0.03 0.16
#> 7 Ivanov et al. 2006 0.09 0.03 0.04 0.14
#> 8 Azizova et al. 2010 0.08 0.04 -0.01 0.16
DerSimonian R, Laird N (1986) Meta-analysis in clinical trials. Controlled clinical trials 7:177–188.
Larry V Hedges and Ingram Olkin (1985), Statistical methods for meta-analysis. ISBN 978-0-08-057065-5, https://doi.org/10.1016/C2009-0-03396-0
Richardson, D. B., Abalo, K., Bernier, M. O., Rage, E., Leuraud, K., Laurier, D., … & Little, M. P. (2020). Meta-analysis of published excess relative risk estimates. Radiation and Environmental Biophysics, 1-11.
Little MP, Azizova TV, Bazyka D, et al. Systematic review and meta-analysis of circulatory disease from exposure to low-level ionizing radiation and estimates of potential population mortality risks. Environ Health Perspect 2012;120(11):1503-11.
To make a contribution, feel free to clone the rip and to share it.
To report a comment you can email me antoine.kossi@hotmail.com or you can create an issue on github.
To visite the package website Metaan