Section 11 Box 9: Find treatment effect estimate

ATE.TMLE.bounded.vector <- ObsData$Pred.updateQ1.Y1  -  
                           ObsData$Pred.updateQ1.Y0 
summary(ATE.TMLE.bounded.vector)

##        V1           
##  Min.   :-0.002969  
##  1st Qu.: 0.005886  
##  Median : 0.006871  
##  Mean   : 0.006969  
##  3rd Qu.: 0.008024  
##  Max.   : 0.032930

hist(ATE.TMLE.bounded.vector)

ATE.TMLE.bounded <- mean(ATE.TMLE.bounded.vector, 
                         na.rm = TRUE) 
ATE.TMLE.bounded 

## [1] 0.006969253