# NOT RUN {
library(DALEX)
apartments_num <- apartments[,unlist(lapply(apartments, is.numeric))]
apartments_num_lm_model <- lm(m2.price ~ ., data = apartments_num)
hi <- hierarchical_importance(x = apartments_num_lm_model,
data = apartments_num[,-1],
y = apartments_num[,1],
type = "model")
plot(hi, add_last_group = TRUE, absolute_value = TRUE)
# }
Run the code above in your browser using DataLab