Nothing
### Missing at random
MARnocov <- function(Y, D, Z) {
R <- (!is.na(Y))*1
ITT <- mean(Y[R == 1 & D == 1 & Z == 1])*mean(D[Z == 1]) +
mean(Y[R == 1 & D == 0 & Z == 1])*(1-mean(D[Z == 1])) -
mean(Y[R == 1 & D == 1 & Z == 0])*mean(D[Z == 0]) -
mean(Y[R == 1 & D == 0 & Z == 0]) * (1-mean(D[Z == 0]))
CACE <- ITT/(mean(D[Z==1])-mean(D[Z==0]))
return(list(ITT = ITT, CACE = CACE))
}
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.