dat <- simdat(model = "quantile")
form <- Y - f ~ 1
Y_l <- dat[dat$set_label == "labeled", all.vars(form)[1]] |> matrix(ncol = 1)
f_l <- dat[dat$set_label == "labeled", all.vars(form)[2]] |> matrix(ncol = 1)
f_u <- dat[dat$set_label == "unlabeled", all.vars(form)[2]] |> matrix(ncol = 1)
ppi_plusplus_quantile_est(Y_l, f_l, f_u, q = 0.5)
Run the code above in your browser using DataLab