## Fix a 4-dimensional asymmetric tail dependence structure
ds4 <- gen.ds(d = 4, sub = list(1:2,3:4,1:3))
## Compute all tic values
res4 <- tic(ds4, ind = "with.singletons", sobol = TRUE)
## Check the sum-to-one constraint of tail Sobol indices
sum(res4$tic)
Run the code above in your browser using DataLab