From bd2eb29483041fc0b70231322e85474a216a4645 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Tue, 1 Mar 2022 08:29:45 +0100
Subject: Make it possible to specify a vector of fixed effects

as obtained by mean_degparms(..., random = FALSE), instead
of the list obtained by mean_degparms(, ... random = TRUE) that
is passed by nlme.mmkin to nlme by default.
---
 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 7049a9a1..79139d12 100644
--- a/R/nlme.mmkin.R
+++ b/R/nlme.mmkin.R
@@ -193,7 +193,7 @@ nlme.mmkin <- function(model, data = "auto",
   val$mkinmod <- model[[1]]$mkinmod
   val$data <- thisCall[["data"]]
   val$mmkin <- model
-  val$mean_dp_start <- start$fixed
+  val$mean_dp_start <- ifelse(is.list(start), start$fixed, start)
   val$transform_rates <- model[[1]]$transform_rates
   val$transform_fractions <- model[[1]]$transform_fractions
   val$solution_type <- model[[1]]$solution_type
-- 
cgit v1.2.1