## Fix a 5-dimensional asymmetric tail dependence structure
ds5 <- gen.ds(d = 5)
## Construct a 1000-sample of Mevlog random vector associated with ds5
sample5 <- rMevlog(n = 1000, ds = ds5)
## Select 3 vectors in R^5
x5 <- matrix(runif(5*3), ncol = 5)
## Select 4 values for the threshold parameter
k5 <- (2:5)*10
## Estimation of the stable tail dependence function
# We thus get a 4 x 3 matrix
ellEmp(sample = sample5, x = x5, k = k5)
## Theoretical values of the stable tail dependence function inherited from ds5
ellMevlog(x = x5, ds = ds5)
Run the code above in your browser using DataLab