Fix fitting with parLapply, doc fix

2 files changed, 2 insertions, 1 deletions

diff --git a/R/mmkin.R b/R/mmkin.R
index fe9db194..1e1c4a33 100644
--- a/R/mmkin.R
+++ b/R/mmkin.R
@@ -37,7 +37,7 @@ mmkin <- function(models = c("SFO", "FOMC", "DFOP"), datasets,
   if (is.null(cluster)) {
     results <- mclapply(as.list(1:n.fits), fit_function, mc.cores = cores)
   } else {
-    results <- parLapply(cluster, list(1:n.fit), fit_function)
+    results <- parLapply(cluster, as.list(1:n.fits), fit_function)
   }
 
   attributes(results) <- attributes(fit_indices)
diff --git a/man/mmkin.Rd b/man/mmkin.Rd
index 64e7ae27..0b35738a 100644
--- a/man/mmkin.Rd
+++ b/man/mmkin.Rd
@@ -61,4 +61,5 @@ time_1
 
 endpoints(fits[["SFO_lin", 2]])
 }
+}
 \keyword{ optimize }