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