mgaus = fgrrm(response = vu.test$gaussian, predictors = vu.test$X,
sensitive = vu.test$S, unfairness = 0.05, family = "gaussian")
ci = confint(mgaus, method = "boot",
method.args = list(response = vu.test$gaussian, predictors = vu.test$X,
sensitive = vu.test$S, R = 20))
ci
plot(ci)
Run the code above in your browser using DataLab