In harell/caret.explainer: Explore, Explain and Examine Predictive `caret` Models

knitr::opts_chunk$set(
    collapse = TRUE,
    comment = "#>",
    fig.align = "center"
)
pkgload::load_all(helpers = FALSE, quiet = TRUE)

Setup

Get the Data

utils::data('titanic_imputed', package = "DALEX")
titanic <- titanic_imputed
titanic$survived <- factor(titanic$survived, levels = 1:0, c("Survived", "Perished"))
titanic %>% dplyr::glimpse()

Build a caret model

caret_model <- caret::train(
    survived ~ ., 
    data = titanic, 
    method = "glm", 
    trControl = caret::trainControl(method = "none", classProbs = TRUE)
)

Explain a caret model

explanations <- caret.explainer::instantiate_explainer(caret_model)

Instance Level Explanation

Break down plot

set.seed(1540)
new_observation <- titanic %>% dplyr::sample_n(1)
explanations$plot_break_down(new_observation = new_observation)

harell/caret.explainer documentation built on June 26, 2020, 6:54 a.m.