data(adult)
# short-hand variable names.
r = adult[, "income"]
s = adult[, c("sex", "race")]
p = adult[, setdiff(names(adult), c("income", "sex", "race"))]
if (FALSE) {
m = zlrm(response = r, sensitive = s, predictors = p, unfairness = 0.05)
summary(m)
}
Run the code above in your browser using DataLab