# NOT RUN {
library("DALEX")
model_titanic_glm <- glm(survived == 1 ~ class + gender + age +
sibsp + parch + fare + embarked,
data = titanic_imputed,
family = "binomial")
explainer_titanic <- explain(model_titanic_glm,
data = titanic_imputed[,-8],
verbose = FALSE)
aspect_importance_single(explainer_titanic,
new_observation = titanic_imputed[1,-8])
# }
Run the code above in your browser using DataLab