From 2b331b5f9420943ebe26b60361578038ec560f88 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Tue, 1 Mar 2022 11:23:49 +0100
Subject: Add some more tests

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

(limited to 'R')

diff --git a/R/nlme.mmkin.R b/R/nlme.mmkin.R
index 79139d12..b6b6c830 100644
--- a/R/nlme.mmkin.R
+++ b/R/nlme.mmkin.R
@@ -193,7 +193,8 @@ nlme.mmkin <- function(model, data = "auto",
   val$mkinmod <- model[[1]]$mkinmod
   val$data <- thisCall[["data"]]
   val$mmkin <- model
-  val$mean_dp_start <- ifelse(is.list(start), start$fixed, start)
+  if (is.list(start)) val$mean_dp_start <- start$fixed
+  else val$mean_dp_start <- 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