Use the absolute values of correlation coefficents to calculate avera…

…ge component weights
aberHRML · Nov 2, 2023 · 9991103 · 9991103
1 parent 73342eb
commit 9991103
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/components.R b/R/components.R
@@ -102,6 +102,7 @@ calcComponents <- function(graph_nodes,
           filter(Component == .x) %>%
           edges() %>% 
           .$coefficient %>% 
+          abs() %>% 
           mean() %>%
           tibble(Weight = .)
       },graph = graph) %>%