# NOT RUN {
library("DALEX")
library("modelStudio")
# Create a model
model_apartments <- glm(m2.price ~. ,
data = apartments)
# Wrap it into an explainer
explain_apartments <- DALEX::explain(model_apartments,
data = apartments[,-1],
y = apartments[,1],
verbose = FALSE)
# Pick some data points
new_apartments <- apartments[1:2,]
rownames(new_apartments) <- c("ap1","ap2")
# Modify default options
op <- modelStudioOptions(
show_subtitle = TRUE,
bd_subtitle = "Hello World",
line_size = 5,
point_size = 9,
line_color = "pink",
point_color = "purple",
bd_positive_color = "yellow",
bd_negative_color = "orange"
)
# Make a studio for the model with modified option
modelStudio(explain_apartments, new_apartments,
N = 100, B = 10, options = op,
show_info = FALSE)
# }
Run the code above in your browser using DataLab