aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2022-03-01 11:23:49 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2022-03-01 11:52:03 +0100
commit2b331b5f9420943ebe26b60361578038ec560f88 (patch)
tree28d344e04730430ddc09ebb52365b3e5485d889e /R
parentc013e35de82825786a12fa98a202219dd241257e (diff)
Add some more tests
Diffstat (limited to '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