#####################################################
# Test case: the non-monotonic Sobol g-function
n <- 1000
X <- data.frame(matrix(runif(8 * n), nrow = n))
x <- johnsonshap(model = sobol.fun, X = X, N = n)
print(x)
plot(x)
library(ggplot2) ; ggplot(x)
Run the code above in your browser using DataLab