# NOT RUN {
mte_fit <- mte(selection = d ~ x + z, outcome = y ~ x,
method = "localIV", data = toydata)
ate <- average(mte_fit, estimand = "ate")
att <- average(mte_fit, estimand = "att")
c(ate, att)
# }
Run the code above in your browser using DataLab