# NOT RUN {
library("DALEX")
data(apartments)
library("randomForest")
apartments_rf_model <- randomForest(m2.price ~ construction.year + surface +
floor + no.rooms, data = apartments)
explainer_rf <- explain(apartments_rf_model, data = apartmentsTest[,2:5],
y = apartmentsTest$m2.price)
new_apartment <- data.frame(construction.year = 1998, surface = 88, floor = 2L, no.rooms = 3)
library("ingredients")
profiles <- ceteris_paribus(explainer_rf, new_apartment)
library("vivo")
local_variable_importance(profiles, apartments[,2:5],
absolute_deviation = TRUE, point = TRUE, density = TRUE)
local_variable_importance(profiles, apartments[,2:5],
absolute_deviation = TRUE, point = TRUE, density = FALSE)
local_variable_importance(profiles, apartments[,2:5],
absolute_deviation = TRUE, point = FALSE, density = TRUE)
# }
Run the code above in your browser using DataLab