data("SEAex")
copulaFits <- fit_copula_pbox(data = SEAex, .copula_families)
distFits <- fit_dist_pbox(data = SEAex)
final_mvd <- final_pbox(copulaFits, distFits$allDitrs, SEAex)
print(final_mvd)
Run the code above in your browser using DataLab