data(bank)
# remove loans with unknown status, the corresponding coefficient is NA in glm().
bank = bank[bank$loan != "unknown", ]
# short-hand variable names.
r = bank[, "subscribed"]
s = bank[, c("age")]
p = bank[, setdiff(names(bank), c("subscribed", "age"))]
if (FALSE) {
m = zlrm(response = r, sensitive = s, predictors = p, unfairness = 0.05)
summary(m)
}
Run the code above in your browser using DataLab