Add options for correlation calculation

SONGDONGYUAN1994 · Nov 7, 2024 · 6ae10a5 · 6ae10a5
1 parent a83a744
commit 6ae10a5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/fit_copula.R b/R/fit_copula.R
@@ -386,7 +386,7 @@ cal_cor <- function(norm.mat,
                                operator = 'hard', 
                                corr = TRUE)
     } else {
-      important_cor.mat <- correlation(important.mat)
+      important_cor.mat <- correlation(important.mat, correlation_function = correlation_fucntion)
     }
 
     #s_d <- apply(norm.mat, 2, stats::sd)