# NOT RUN {
library(ivdoctr)
endog <- matrix(c(0, 0.9), nrow = 1)
meas <- matrix(c(0.6, 1), nrow = 1)
plot_3d_beta(y_name = "logpgp95", T_name = "avexpr",
z_name = "logem4", data = colonial,
r_TstarU_restriction = endog,
k_restriction = meas)
# }
Run the code above in your browser using DataLab