Nothing
###################################################################################
# DR DiD estimator for the ATT with panel Data
aipw.did.panel <- function(deltaY, D, ps, out.reg, i.weights){
#-----------------------------------------------------------------------------
# Compute the AIPW estimator
i.weights <- i.weights/mean(i.weights)
w.treat <- i.weights * D
w.cont <- i.weights * (1 - D) * ps / (1 - ps)
aipw.1 <- mean(w.treat * (deltaY - out.reg)) / mean(w.treat)
aipw.0 <- mean(w.cont * (deltaY - out.reg)) / mean(w.cont)
aipw.att <- aipw.1 - aipw.0
return(aipw.att)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.