# Define settings
matrices <- c("A", "B", "AB")
params <- paste("X", 1:3, sep = "")
N <- 2^10
first <- "saltelli"
total <- "jansen"
order <- "second"
# Create sample matrix
mat <- sobol_matrices(N = N, params = params, order = order)
# Compute Ishigami function
Y <- ishigami_Fun(mat)
# Check convergence at specific sample sizes
sub.sample <- seq(100, N, 500) # Define sub-samples
sobol_convergence(matrices = matrices, Y = Y, N = N, sub.sample = sub.sample,
params = params, first = first, total = total, order = order, plot.order = order)
Run the code above in your browser using DataLab