return abs value for the max correlation

emdelponte · Oct 24, 2024 · 41339ef · 41339ef
1 parent f66ce85
commit 41339ef
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/windowpane_tests.R b/R/windowpane_tests.R
@@ -120,7 +120,7 @@ windowpane_tests <- function(data, response_var, corr_type = "spearman", R = 100
   global_significant <- Pg < global_alpha
 
   # Find the maximum correlation
-  max_correlation <- max(results$correlation, na.rm = TRUE)
+  max_correlation <- max(abs(results$correlation), na.rm = TRUE)
 
   # Add global Pg and max correlation as a separate row
   summary_table <- data.frame(