x <- data.frame(age = rnorm(100), bmi = rnorm(100))
x[["y"]] <- x[["age"]] * 2 + rnorm(100, sd = 0.3)
mod <- train(x, hyperparameters = setup_GLM(), verbosity = 0L)
contributions <- explain(
mod,
x[, c("age", "bmi")],
background = x[, c("age", "bmi")],
verbosity = 0L
)
head(shap_long(contributions, x[, c("age", "bmi")]))
Run the code above in your browser using DataLab