# \donttest{
# Minimal toy example using simulated predictions
set.seed(1)
# Fake final_results: 20 subjects, binary outcome, probability scores
final_results <- data.frame(
subjectid = 1:20,
true = sample(0:1, 20, replace = TRUE),
prob = runif(20),
group = sample(0:1, 20, replace = TRUE)
)
# gnn_results list in the shape returned by train_gnn()
gnn_results <- list(
final_results = final_results
)
# prepared_data only needs group_mappings for labelling
prepared_data <- list()
attr(prepared_data, "group_mappings") <- c("0" = "Group 0", "1" = "Group 1")
# Write to a temporary CSV
tmp <- file.path(tempdir(), "fairness360_input.csv")
res <- export_f360_csv(
gnn_results = gnn_results,
prepared_data = prepared_data,
path = tmp,
include_gate_cols = FALSE,
threshold = 0.5,
verbose = FALSE
)
head(res)
# }
Run the code above in your browser using DataLab