Added iter limit to prevent infinite loop (#25)

ocbe-uio · Aug 9, 2023 · 3ab0a73 · 3ab0a73
1 parent b034158
commit 3ab0a73
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/indMix.R b/R/indMix.R
@@ -125,7 +125,13 @@ indMix <- function(c, npops, counts = NULL, sumcounts = NULL, max_iter = 100L, d
       )
     }
 
+    iter <- 1L
     while (ready != 1) {
+      iter <- iter + 1L
+      if (iter > max_iter) {
+        warning("max_iter reached. Stopping.")
+        break
+      }
       # FIXME: loop caught in here
       muutoksia <- 0