S <- cbind(
x = c(0.1, 0.1, 0.1),
`age low` = c(0.2, -0.1, 0.1),
`age mid` = c(0, 0.2, -0.2),
`age high` = c(1, -1, 0)
)
collapse <- list(age = c("age low", "age mid", "age high"))
collapse_shap(S, collapse)
# Arrays (as with SHAP interactions)
S_inter <- array(1, dim = c(2, 4, 4), dimnames = list(NULL, letters[1:4], letters[1:4]))
collapse_shap(S_inter, collapse = list(cd = c("c", "d"), ab = c("a", "b")))
Run the code above in your browser using DataLab