if (FALSE) { # requireNamespace("twang", quietly = TRUE)
library(twang); data("lalonde", package = "cobalt")
## Using ps() for generalized boosted modeling
ps.out <- ps(treat ~ age + educ + married + race +
nodegree + re74 + re75, data = lalonde,
stop.method = c("ks.mean", "es.mean"),
estimand = "ATT", verbose = FALSE)
bal.tab(ps.out, stop.method = "ks.mean", un = TRUE,
m.threshold = .1, disp.ks = TRUE)
}Run the code above in your browser using DataLab