aboutsummaryrefslogtreecommitdiff
path: root/R/nlme.mmkin.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/nlme.mmkin.R')
-rw-r--r--R/nlme.mmkin.R3
1 files changed, 2 insertions, 1 deletions
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

Contact - Imprint