From e9931e61c253eb9379864b0a4dc7e37e39b6738d Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 25 Jun 2015 11:39:20 +0200
Subject: Fix fitting with parLapply, doc fix

---
 R/mmkin.R    | 2 +-
 man/mmkin.Rd | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

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 }
-- 
cgit v1.2.1