From 3ab0a73a0224f809d55dbe98fea97096384697d5 Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Wed, 9 Aug 2023 14:17:54 +0200 Subject: [PATCH] Added iter limit to prevent infinite loop (#25) --- R/indMix.R | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/R/indMix.R b/R/indMix.R index 3bfcd83..03e9636 100644 --- 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