Update number of iterations on swap function in p-rep design

DidierMurilloF · Mar 25, 2024 · 71166c3 · 71166c3
1 parent 95bf9ad
commit 71166c3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/utils_pREP.R b/R/utils_pREP.R
@@ -176,9 +176,9 @@ pREP <- function(
     ################### Optimization ##########################################
     # Perform an optimization by using the function swap_pairs()
     if (max(table(field_layout)) == 2) {
-        swap <- swap_pairs(X = field_layout, starting_dist = 3, stop_iter = 20)
+        swap <- swap_pairs(X = field_layout, starting_dist = 3, stop_iter = 18)
     } else {
-        swap <- swap_pairs(X = field_layout, starting_dist = 2, stop_iter = 20)
+        swap <- swap_pairs(X = field_layout, starting_dist = 2, stop_iter = 18)
     }
     optim_layout <- swap$optim_design
     dups <- table(as.vector(optim_layout))