Sto cercando di stimare l'effetto medio del trattamento dai dati osservazionali usando la ponderazione del punteggio di propensione (in particolare IPTW). Penso di calcolare correttamente l'ATE, ma non so come calcolare l'intervallo di confidenza dell'ATE tenendo conto dei pesi inversi del punteggio di propensione.
Ecco l'equazione che sto usando per calcolare l'effetto del trattamento medio (riferimento Stat Med. 10 set 2010; 29 (20): 2137–2148.): Dove numero totale di soggetti, stato del trattamento, stato del risultato e punteggio di propensione.
Qualcuno sa di un pacchetto R che calcolerebbe l'intervallo di confidenza dell'effetto medio del trattamento, tenendo conto dei pesi? Il survey
pacchetto potrebbe aiutare qui? Mi chiedevo se avrebbe funzionato:
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
Non so dove andare da qui per trovare l'intervallo di confidenza della differenza tra le proporzioni (cioè l'effetto di trattamento medio).