View source: R/print_aggregated_profiles.R
print.aggregated_profiles_explainer | R Documentation |
Prints Aggregated Profiles
## S3 method for class 'aggregated_profiles_explainer' print(x, ...)
x |
an individual variable profile explainer produced with the |
... |
other arguments that will be passed to |
library("DALEX") library("ingredients") model_titanic_glm <- glm(survived ~ gender + age + fare, data = titanic_imputed, family = "binomial") explain_titanic_glm <- explain(model_titanic_glm, data = titanic_imputed[,-8], y = titanic_imputed[,8]) selected_passangers <- select_sample(titanic_imputed, n = 100) cp_rf <- ceteris_paribus(explain_titanic_glm, selected_passangers) head(cp_rf) pdp_rf <- aggregate_profiles(cp_rf, variables = "age") head(pdp_rf) library("ranger") model_titanic_rf <- ranger(survived ~., data = titanic_imputed, probability = TRUE) explain_titanic_rf <- explain(model_titanic_rf, data = titanic_imputed[,-8], y = titanic_imputed[,8], label = "ranger forest", verbose = FALSE) cp_rf <- ceteris_paribus(explain_titanic_rf, selected_passangers) cp_rf pdp_rf <- aggregate_profiles(cp_rf, variables = "age") head(pdp_rf)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.