# NOT RUN {
load_aif360_lib()
# Load the adult dataset
adult_dataset <- adult_dataset()
# Define the groups
privileged_groups <- list("race", 1)
unprivileged_groups <- list("race", 0)
# Metric for Binary Label Dataset
bm <- binary_label_dataset_metric(data = adult_dataset,
privileged_groups = privileged_groups,
unprivileged_groups = unprivileged_groups)
# Difference in mean outcomes between unprivileged and privileged groups
bm$mean_difference()
# }
Run the code above in your browser using DataLab