Update simEGM.R

hfgolino · Sep 28, 2024 · fdc0ac0 · fdc0ac0
1 parent 5904a31
commit fdc0ac0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/simEGM.R b/R/simEGM.R
@@ -143,7 +143,7 @@ simEGM <- function(
   ) + correlation_adjustment
 
   # Scale correlations with communities
-  correlation_range <- correlation_range * (2 / communities)
+  correlation_range <- correlation_range * (3 / communities)
 
   # Ensure zero is minimum
   correlation_range <- swiftelse(correlation_range < 0, 0, correlation_range)