View source: R/fairness_heatmap.R
fairness_heatmap | R Documentation |
Create fairness_heatmap
object to compare both models and metrics.
If parameter scale
is set to TRUE
metrics will be scaled to median = 0 and sd = 1.
If NA's appear heatmap will still plot, but with gray area where NA's were.
fairness_heatmap(x, scale = FALSE)
x |
object of class |
scale |
logical, if codeTRUE metrics will be scaled to mean 0 and sd 1. Default |
fairness_heatmap
object.
It is a list with following fields:
heatmap_data - data.frame
with information about score for model and parity loss metric
matrix_model - matrix used in dendogram plots
scale - logical parameter passed to fairness_heatmap
label - character, vector of model labels
data("german")
y_numeric <- as.numeric(german$Risk) - 1
lm_model <- glm(Risk ~ .,
data = german,
family = binomial(link = "logit")
)
rf_model <- ranger::ranger(Risk ~ .,
data = german,
probability = TRUE,
num.trees = 200,
num.threads = 1
)
explainer_lm <- DALEX::explain(lm_model, data = german[, -1], y = y_numeric)
explainer_rf <- DALEX::explain(rf_model, data = german[, -1], y = y_numeric)
fobject <- fairness_check(explainer_lm, explainer_rf,
protected = german$Sex,
privileged = "male"
)
# same explainers with different cutoffs for female
fobject <- fairness_check(explainer_lm, explainer_rf, fobject,
protected = german$Sex,
privileged = "male",
cutoff = list(female = 0.4),
label = c("lm_2", "rf_2")
)
fh <- fairness_heatmap(fobject)
plot(fh)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.