# NOT RUN {
data(EU_2020)
indic <- c("employ_2011", "gasemiss_2011","deprived_2011")
dat <- EU_2020[-c(10,18),indic]
Q_GDP <- EU_2020[-c(10,18),"percGDP_2011"]
# Conditional robust BoD Constrained VWR
band = bandwidth_CI_bad(dat, ngood=1, nbad=2, Q = Q_GDP)
CI_BoD_C = ci_rbod_constr_Q(dat,
low_w=0.05,
pref=NULL,
M=10,
B=50,
Q=Q_GDP,
bandwidth = band$bandwidth)
CI_BoD_C$ci_rbod_constr_Q_est
# }
Run the code above in your browser using DataLab