#load the data
data(icu.data)
#the covariate matrix is
X = as.matrix(subset(icu.data, select = -c(open_bin, icu_bed)))
#the treatment
D = icu.data$icu_bed
#the instrument
Z = icu.data$open_bin
#make the Love plot with permutation quantiles
if (FALSE) biasLovePlot(X = X, D = D, Z = Z, permQuantiles = TRUE, perms = 500)
Run the code above in your browser using DataLab