# set-up data
set.seed(1234)
data <- Hainmueller$new()
data$gen_data()
# calculate quantities
weight <- calc_weight(data, method = "Logistic", estimand = "ATE")
tx_eff <- estimate_effect(causalWeights = weight)
all.equal(coef(tx_eff), c(estimate = tx_eff@estimate))
Run the code above in your browser using DataLab