# Test case : the non-monotonic Sobol g-function
# The method of sobolowen requires 3 samples
# There are 8 factors, all following the uniform distribution
# on [0,1]
library(boot)
n <- 1000
X1 <- data.frame(matrix(runif(8 * n), nrow = n))
X2 <- data.frame(matrix(runif(8 * n), nrow = n))
X3 <- data.frame(matrix(runif(8 * n), nrow = n))
# sensitivity analysis
# \donttest{
x <- sobolowen(model = sobol.fun, X1, X2, X3, nboot = 10) # put nboot=100
print(x)
plot(x)
library(ggplot2)
ggplot(x)
# }
Run the code above in your browser using DataLab