ac_model = hac(type = AC_GUMBEL, X = 3, dim = 3)
sample = rHAC(1000, ac_model)
plot(ac_model, ylim = c(-0.4, 1.25), l = 1, h = 0.35)
M = matrix(c(2, 0, 0, 0, 3, 4, 0, 0, ~X1 + X5, ~X2, ~X3, ~X4 + X6),
ncol = 4, byrow = TRUE)
g.model = hac(HAC_CLAYTON, M)
plot(g.model, index = TRUE)
# sample from copula g.model
x = rHAC(5000, g.model)
Run the code above in your browser using DataLab