# NOT RUN {
load_aif360_lib()
# Input dataset
data <- data.frame("feat" = c(0,0,1,1,1,1,0,1,1,0), "label" = c(1,0,0,1,0,0,1,0,1,1))
# Create aif compatible input dataset
act <- aif360::aif_dataset(data_path = data, favor_label=0, unfavor_label=1,
unprivileged_protected_attribute=0,
privileged_protected_attribute=1,
target_column="label", protected_attribute="feat")
# }
Run the code above in your browser using DataLab