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