diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-03-01 11:23:49 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-03-01 11:52:03 +0100 |
| commit | 2b331b5f9420943ebe26b60361578038ec560f88 (patch) | |
| tree | 28d344e04730430ddc09ebb52365b3e5485d889e /R/nlme.mmkin.R | |
| parent | c013e35de82825786a12fa98a202219dd241257e (diff) | |
Add some more tests
Diffstat (limited to 'R/nlme.mmkin.R')
| -rw-r--r-- | R/nlme.mmkin.R | 3 |
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 |