# NOT RUN {
# compute a copula for a family of parallel hyperplanes and a family of conentric ellipsoids
h = runif(n = 10, min = 1, max = 1000)
h = h / 1000
E = replicate(10, rnorm(20))
E = cov(E)
cop = copula2(h=h, E=E, numSlices=10, N=100000)
# }
Run the code above in your browser using DataLab