# \donttest{
library("DALEX")
library("ingredients")
titanic_glm <- glm(survived ~ gender + age + fare,
data = titanic_imputed, family = "binomial")
explain_glm <- explain(titanic_glm,
data = titanic_imputed,
y = titanic_imputed$survived,
verbose = FALSE)
pdp_numerical <- partial_dependence(explain_glm, N = 50, variable_type = "numerical")
pdp_categorical <- partial_dependence(explain_glm, N = 50, variable_type = "categorical")
# Bind plots by rows
bind_plots(plot(pdp_numerical), plot(pdp_categorical), byrow = TRUE)
# Bind plots by columns
bind_plots(plot(pdp_numerical), plot(pdp_categorical), byrow = FALSE)
# }
Run the code above in your browser using DataLab