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.