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 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R/mmkin.R')

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