Slide 19
Slide 19 text
Interactive Model
m <- randomForest(response ~ ., data = gss)
gss_treated <- gss %>%
mutate(treatment = factor("assistance",
levels = c("welfare", "assistance")))
gss_control <- gss %>%
mutate(treatment = factor("welfare",
levels = c("welfare", "assistance")))
y_1 <- predict(m, gss_treated, type = "prob")[, 2]
y_0 <- predict(m, gss_control, type = "prob")[, 2]
cate <- y_1 - y_0
14