Bugfix in breakpoints detection

caravagnalab · Apr 15, 2024 · cd18f63 · cd18f63
1 parent 5a2b16f
commit cd18f63
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/fit_task2.R b/R/fit_task2.R
@@ -84,8 +84,7 @@ breakpoints_inference <- function(
     stats::na.omit()
 
   status <- 'FAIL'
-
-  while (status == 'FAIL') {
+  while ((status == 'FAIL') & (nrow(res) > 0)) {
     best_res <- res %>% dplyr::filter(lp == max(lp))
 
     best_fit <- fits[[paste0(best_res$J, " _ ", best_res$iter)]]