# NOT RUN {
library("DALEX")
library("modelStudio")
# fit a model
model_titanic <- glm(survived ~., data = titanic_imputed, family = "binomial")
# create an explainer for the model
explainer_titanic <- explain(model_titanic,
data = titanic_imputed,
y = titanic_imputed$survived)
# make a studio for the model
ms <- modelStudio(explainer_titanic,
N = 200, B = 5) # faster example
# update the options
new_ms <- ms_update_options(ms,
time = 0,
facet_dim = c(1,2),
margin_left = 150)
new_ms
# }
Run the code above in your browser using DataLab