fix for infoCluster

hfgolino · Nov 11, 2023 · b229e7e · b229e7e
1 parent e9a7d2f
commit b229e7e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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