Use try() within mmkin

This keeps mmkin from stopping if one of the fits fails. Instead,
a try-error is assigned to the respective position in the mmkin object.

1 files changed, 1 insertions, 1 deletions

diff --git a/R/mmkin.R b/R/mmkin.R
index 37c4e87d..adb9f4d0 100644
--- a/R/mmkin.R
+++ b/R/mmkin.R
@@ -95,7 +95,7 @@ mmkin <- function(models = c("SFO", "FOMC", "DFOP"), datasets,
     w <- which(fit_indices == fit_index, arr.ind = TRUE)
     model_index <- w[1]
     dataset_index <- w[2]
-    mkinfit(models[[model_index]], datasets[[dataset_index]], ...)
+    res <- try(mkinfit(models[[model_index]], datasets[[dataset_index]], ...))
   }
 
   if (is.null(cluster)) {