在这种情况下,您应该直接量化研究中交互作用的大小(治疗组变量和年龄组变量之间)。您可以通过计算研究中两个 log RR 之间的差异来做到这一点。差异的方差只是两个平方标准误差的总和,因为试验中的两个亚组由不同的个体(50 岁以下/50 岁以上)组成,因此是独立的。所以:
df.diff <- with(df, data.frame(study = 1:2,
yi = c(logrr[1]-logrr[2], logrr[3]-logrr[4]),
vi = c(se[1]^2 + se[2]^2, se[3]^2 + se[4]^2)))
所以我们得到:
study yi vi
1 1 0.5108256 0.1268421
2 2 1.0986123 0.2553729
然后您可以对这些值进行元分析:
res <- rma(yi, vi, data=df.diff)
res
这产生:
Random-Effects Model (k = 2; tau^2 estimator: REML)
tau^2 (estimated amount of total heterogeneity): 0 (SE = 0.2703)
tau (square root of estimated tau^2 value): 0
I^2 (total heterogeneity / total variability): 0.00%
H^2 (total variability / sampling variability): 1.00
Test for Heterogeneity:
Q(df = 1) = 0.9039, p-val = 0.3417
Model Results:
estimate se zval pval ci.lb ci.ub
0.7059 0.2911 2.4248 0.0153 0.1353 1.2765 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
因此,交互效应的估计大小为0.7059,并且由于我们计算了 (log RR for below 50) - (log RR for above 50),这个值表明 log RR 是平均的0.7059在 50 岁以下的群体中得分更高。或者:
predict(res, transf=exp)
产量:
pred ci.lb ci.ub cr.lb cr.ub
2.0256 1.1449 3.5839 1.1449 3.5839
这表明在 50 岁以下的群体中,RR 平均大约是其两倍。
我将抛开是否使用随机效应模型的问题k=2是否合理,但由于估计的异质性量无论如何都是 0,如果我们使用固定效应模型 ( method="FE"),我们将获得相同的结果。