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