aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2022-03-01 08:29:45 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2022-03-01 08:29:45 +0100
commitbd2eb29483041fc0b70231322e85474a216a4645 (patch)
tree82ca0a6fe44cc4fbfcbf91a31483101e1eb8dfc2
parent931ca24a70995c78958140b1d53dfd52e0e9bc4d (diff)
Make it possible to specify a vector of fixed effects
as obtained by mean_degparms(..., random = FALSE), instead of the list obtained by mean_degparms(, ... random = TRUE) that is passed by nlme.mmkin to nlme by default.
-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