x <- data.frame(
age = rnorm(100),
dx = factor(sample(c("none", "diabetes"), 100, TRUE))
)
x[["y"]] <- x[["age"]] + 3 * (x[["dx"]] == "diabetes") + rnorm(100, sd = 0.3)
mod <- train(x, hyperparameters = setup_GLM(), verbosity = 0L)
contributions <- explain(
mod,
x[, c("age", "dx")],
background = x[, c("age", "dx")],
verbosity = 0L
)
shap_by_level(contributions, x[, c("age", "dx")])
Run the code above in your browser using DataLab