library(bartCause)
library(plotBart)
fit <- bartc(response = y,
treatment = z,
confounders = .,
data = gss
)
summary(fit, target = 'sate')
plotBart::plot_SATE(fit) + theme_bw()bartCause
An article about using bartCause
Load bartCause
Insightful text about bartCause
Results
