# Define settings
star.centers <- 10; params <- paste("X", 1:3, sep = ""); h <- 0.1
# Create STAR-VARS
mat <- vars_matrices(star.centers = star.centers, params = params, h = h)
# Run model
y <- sensobol::ishigami_Fun(mat)
# Compute VARS-TO
ind <- vars_to(Y = y, star.centers = star.centers, params = params, h = h)
ind
Run the code above in your browser using DataLab