From f24a86c1f33e06c8114021c5c3956b5f7c400c18 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 4 Nov 2020 10:06:34 +0100
Subject: Revert to use starting values for random effects in nlme.mmkin

---
 R/nlme.mmkin.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R')

diff --git a/R/nlme.mmkin.R b/R/nlme.mmkin.R
index e8418ebd..6d24a044 100644
--- a/R/nlme.mmkin.R
+++ b/R/nlme.mmkin.R
@@ -150,7 +150,7 @@ nlme.mmkin <- function(model, data = sys.frame(sys.parent()),
   thisCall[["data"]] <- nlme_data(model)
 
   if (missing(start)) {
-    thisCall[["start"]] <- mean_degparms(model, random = FALSE)
+    thisCall[["start"]] <- mean_degparms(model, random = TRUE)
   }
 
   thisCall[["fixed"]] <- lapply(as.list(dp_names), function(el)
-- 
cgit v1.2.1