## Example from 'propagate'
EXPR1 <- expression(x/y)
x <- c(5, 0.01, 12)
y <- c(1, 0.01, 5)
DF1 <- cbind(x, y)
RES1 <- propagate(expr = EXPR1, data = DF1, type = "stat", nsim = 10000, check = FALSE)
sobol(RES1)
## Classical Ishigami function for gauging
A <- cbind(
x1 = runif(1e6, -pi, pi),
x2 = runif(1e6, -pi, pi),
x3 = runif(1e6, -pi, pi)
)
B <- cbind(
x1 = runif(1e6, -pi, pi),
x2 = runif(1e6, -pi, pi),
x3 = runif(1e6, -pi, pi)
)
EXPR <- expression(sin(x1) + 7 * (sin(x2))^2 + 0.1 * x3^4 * sin(x1))
sobol(A = A, B = B, expr = EXPR, method = "jansen")
# => X1: 0.559, X2: 0.442, X3: 0.242
# => Homma & Saltelli (1996), Table 4: X1: 0.557, X2: 0.444, X3: 0.241
Run the code above in your browser using DataLab