print.group_metric | R Documentation |
Print group metric
## S3 method for class 'group_metric' 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" ) gm <- group_metric(fobject, "TPR", "f1", parity_loss = TRUE) print(gm)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.