diff --git a/R/simEGM.R b/R/simEGM.R
index 3d088940..f7dc9c38 100644
--- 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)