| name | DALEX |
| description | R DALEX package for model explanations. Use for explaining complex machine learning models. |
DALEX
Descriptive mAchine Learning EXplanations.
Create Explainer
library(DALEX)
explainer <- explain(
model = model,
data = train_data,
y = train_labels,
label = "My Model"
)
Model Performance
perf <- model_performance(explainer)
plot(perf)
perf1 <- model_performance(explainer1)
perf2 <- model_performance(explainer2)
plot(perf1, perf2)
Variable Importance
vi <- model_parts(explainer)
plot(vi)
vi <- model_parts(explainer,
loss_function = loss_root_mean_square,
B = 10)
Partial Dependence
pdp <- model_profile(explainer, variables = "age")
plot(pdp)
pdp <- model_profile(explainer, variables = c("age", "income"))
plot(pdp)
pdp <- model_profile(explainer, variables = "age", groups = "gender")
plot(pdp)
Individual Predictions
bd <- predict_parts(explainer, new_observation = new_data[1, ])
plot(bd)
shap <- predict_parts(explainer, new_observation = new_data[1, ],
type = "shap")
plot(shap)
Ceteris Paribus
cp <- predict_profile(explainer, new_observation = new_data[1, ])
plot(cp)
cp <- predict_profile(explainer, new_observation = new_data[1:3, ])
plot(cp)
Model Diagnostics
diag <- model_diagnostics(explainer)
plot(diag)
Arena (Interactive)
library(arenar)
arena <- create_arena(live = TRUE) %>%
push_model(explainer)
run_server(arena)
Compare Models
explainer1 <- explain(model1, data, y, label = "Model 1")
explainer2 <- explain(model2, data, y, label = "Model 2")
vi1 <- model_parts(explainer1)
vi2 <- model_parts(explainer2)
plot(vi1, vi2)