From b229e7e288bbca67814c07723e44680bc84952bf Mon Sep 17 00:00:00 2001
From: Alexander Christensen <alexpaulchristensen@gmail.com>
Date: Sat, 11 Nov 2023 08:33:23 -0600
Subject: [PATCH] fix for `infoCluster`

---
 R/infoCluster.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/infoCluster.R b/R/infoCluster.R
index 5cae2758..e1c0ed6a 100644
--- a/R/infoCluster.R
+++ b/R/infoCluster.R
@@ -179,11 +179,11 @@ infoCluster <- function(dynEGA.object, plot.cluster = TRUE)
     # Compute Cohen's d
     cohens_d <- d(
       jsd_matrix[lower_triangle],
-      jsd_random_matrix[lower_triangle],
+      jsd_rewired_matrix[lower_triangle],
       paired = TRUE
     )
     
-    # Check for empirical JSD > random JSD OR non-significant t-test
+    # Check for empirical JSD > rewired JSD OR non-significant t-test
     if(comparison_sign == 1 || abs(cohens_d) < 0.20){
       
       # Set clusters to all individuals