lgor_rd.Rd
The function lgor_rd
computes covariance between log odds ratio and risk difference, when the two outcomes are binary. See mix.vcov
for effect sizes of the same or different types.
lgor_rd(r, n1c, n2c, n1t, n2t, n12c = min(n1c, n2c), n12t = min(n1t, n2t), s2c, s2t, f2c, f2t, s1c, s1t, f1t, f1c)
r | Correlation coefficient of the two outcomes. |
---|---|
n1c | Number of participants reporting outcome 1 in the control group. |
n2c | Number of participants reporting outcome 2 in the control group. |
n1t | Number of participants reporting outcome 1 in the treatment group. |
n2t | Number of participants reporting outcome 2 in the treatment group. |
n12c | Number of participants reporting both outcome 1 and outcome 2 in the control group. By default, it is equal to the smaller number between |
n12t | Number defined in a similar way as |
s2c | Number of participants with event for outcome 2 (dichotomous) in the control group. |
s2t | Defined in a similar way as |
f2c | Number of participants without event for outcome 2 (dichotomous) in the control group. |
f2t | Defined in a similar way as |
s1c | Number of participants with event for outcome 1 (dichotomous) in the control group. |
s1t | Defined in a similar way as |
f1c | Number of participants without event for outcome 1 (dichotomous) in the control group. |
f1t | Defined in a similar way as |
Min Lu
lgor | Log odds ratio for outcome 1. |
rd | Risk difference for outcome 2. |
v | Computed covariance. |
Ahn, S., Lu, M., Lefevor, G.T., Fedewa, A. & Celimli, S. (2016). Application of meta-analysis in sport and exercise science. In N. Ntoumanis, & N. Myers (Eds.), An Introduction to Intermediate and Advanced Statistical Analyses for Sport and Exercise Scientists (pp.233-253). Hoboken, NJ: John Wiley and Sons, Ltd.
Wei, Y., & Higgins, J. (2013). Estimating within study covariances in multivariate meta-analysis with multiple outcomes. Statistics in Medicine, 32(7), 119-1205.
## simple example lgor_rd(r = 0.71, n1c = 30, n2c = 35, n1t = 28, n2t = 32, s2c = 5, s2t = 8, f2c = 30, f2t = 24, s1c = 5, s1t = 8, f1c = 25, f1t = 20)#> $lgor #> [1] 0.6931472 #> #> $rd #> [1] 0.1071429 #> #> $v #> [1] 0.0965301 #>#>#> #> #> #>D_DD <- unlist(lapply(1:nrow(Geeganage2010), function(i){lgor_rd(r = 0.71, n1c = nc_SBP[i], n2c = nc_DD[i], n1t = nt_SBP[i], n2t = nt_DD[i], s2t = st_DD[i], s2c = sc_DD[i], f2c = nc_DD[i] - sc_DD[i], f2t = nt_DD[i] - st_DD[i], s1t = st_D[i], s1c = sc_D[i], f1c = nc_D[i] - sc_D[i], f1t = nt_D[i] - st_D[i])$v})) D_DD#> [1] 0.128246940 0.105420974 0.027311564 0.026471091 0.019716908 0.155399948 #> [7] 0.016600546 0.018205227 0.023974359 0.025272281 0.013337260 0.083263090 #> [13] 0.074990170 0.121393711 0.005205491 0.017002459 0.235812436## the function mix.vcov() should be used for dataset