# Define settings
N <- 100; params <- paste("X", 1:15, sep = "")
# Create sample matrix
mat <- sobol_matrices(N = N, params = params)
# Compute Oakley and O'Hagan (2004) function
Y <- oakley_Fun(mat)
Run the code above in your browser using DataLab