data("SEAex")
.copula_families <- list(
archmCopula = c("clayton", "frank", "gumbel", "joe"),
evCopula = c("galambos", "gumbel", "huslerReiss"),
ellipCopula = c("normal")
)
distFits <- fit_copula_pbox(data = SEAex, .copula_families)
print(distFits)
Run the code above in your browser using DataLab