library(estimatr)
# Load the data
df <- read.csv("./mullainathan.csv")
# Rename variables
ASSIGNED <- df$watch
TREATED <- df$watchdps
Y <- df$ochange
# Estimate ITT
itt_model <- lm_robust(Y ~ ASSIGNED)
summary(itt_model)
Call:
lm_robust(formula = Y ~ ASSIGNED)
Standard error type: HC2
Coefficients:
Estimate Std. Error t value Pr(>|t|) CI Lower CI Upper DF
(Intercept) 0.41818 0.02219 18.843 5.371e-68 0.374632 0.4617 998
ASSIGNED 0.05707 0.03142 1.816 6.965e-02 -0.004595 0.1187 998
Multiple R-squared: 0.003293 , Adjusted R-squared: 0.002294
F-statistic: 3.298 on 1 and 998 DF, p-value: 0.06965