# NOT RUN {
library("DALEX")
library("modelStudio")
#:# ex1 classification on 'titanic_imputed' dataset
# Create a model
model_titanic <- glm(survived ~.,
data = titanic_imputed,
family = "binomial")
# Wrap it into an explainer
explain_titanic <- explain(model_titanic,
data = titanic_imputed[,-8],
y = titanic_imputed[,8],
label = "glm",
verbose = FALSE)
# Pick some data points
new_observations <- titanic_imputed[1:2,]
rownames(new_observations) <- c("Lucas","James")
# Make a studio for the model
modelStudio(explain_titanic, new_observations,
N = 100, B = 10, show_info = FALSE)
# }
# NOT RUN {
#:# ex2 regression on 'apartments' dataset
model_apartments <- randomForest::randomForest(m2.price ~. ,
data = apartments)
explain_apartments <- explain(model_apartments,
data = apartments[,-1],
y = apartments[,1],
verbose = FALSE)
new_apartments <- apartments[1:2,]
rownames(new_apartments) <- c("ap1","ap2")
# change dashboard dimensions and animation length
modelStudio(explain_apartments, new_apartments,
facet_dim = c(2, 3), time = 800,
show_info = FALSE)
# add information about true labels
modelStudio(explain_apartments, new_apartments,
new_observation_y = apartments[1:2, 1],
show_info = FALSE)
# don't compute EDA plots
modelStudio(explain_apartments, eda = FALSE,
show_info = FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab