print.fairness_radar | R Documentation |
Print fairness radar
## S3 method for class 'fairness_radar' 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" ) fradar <- fairness_radar(fobject) print(fradar)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.