print.fairness_heatmap | R Documentation |
Print fairness heatmap
## S3 method for class 'fairness_heatmap' print(x, ...)
x |
|
... |
other print parameters |
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) print(fh)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.