我正在尝试使用倾向得分加权(特别是 IPTW)从观察数据中估计平均治疗效果。我认为我正确计算了 ATE,但我不知道如何在考虑逆倾向得分权重的同时计算 ATE 的置信区间。
这是我用来计算平均治疗效果的方程式(参考 Stat Med. Sep 10, 2010; 29(20): 2137–2148.): 其中受试者总数,治疗状态,结果状态,倾向得分。
有谁知道一个 R 包可以计算平均治疗效果的置信区间,同时考虑到权重?survey
包裹可以在这里提供帮助吗?我想知道这是否可行:
library(survey)
sampsvy=svydesign(id=~1,weights=~iptw,data=df)
svyby(~surgery=='lump',~treatment,design=sampsvy,svyciprop,vartype='ci',method='beta')
#which produces this result:
treatment surgery == "lump" ci_l ci_u
No 0.1644043 0.1480568 0.1817876
Yes 0.2433215 0.2262039 0.2610724
我不知道从哪里可以找到比例差异的置信区间(即平均治疗效果)。