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.R2
1 files changed, 1 insertions, 1 deletions
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

Contact - Imprint