# NOT RUN {
library("modelStudio")
# ex1 classification
model_titanic_glm <- glm(survived ~.,
data = DALEX::titanic_imputed,
family = "binomial")
explain_titanic_glm <- DALEX::explain(model_titanic_glm,
data = DALEX::titanic_imputed[,-8],
y = DALEX::titanic_imputed[,8],
label = "glm",
verbose = FALSE)
new_observations <- DALEX::titanic_imputed[1:2,]
rownames(new_observations) <- c("Lucas","James")
modelStudio(explain_titanic_glm, new_observations,
N = 100, B = 10, show_info = FALSE)
# }
# NOT RUN {
# ex2 regression
model_apartments <- glm(m2.price ~. ,
data = DALEX::apartments)
explain_apartments <- DALEX::explain(model_apartments,
data = DALEX::apartments[,-1],
y = DALEX::apartments[,1],
verbose = FALSE)
new_apartments <- DALEX::apartments[1:2,]
rownames(new_apartments) <- c("ap1","ap2")
modelStudio(explain_apartments, new_apartments,
facet_dim = c(2, 3), time = 1000,
show_info = FALSE)
modelStudio(explain_apartments, show_info = FALSE)
modelStudio(explain_apartments, new_observation = new_apartments,
new_observation_y = DALEX::apartments[1:2, 1],
show_info = FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab