diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-03-01 08:29:45 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-03-01 08:29:45 +0100 |
| commit | bd2eb29483041fc0b70231322e85474a216a4645 (patch) | |
| tree | 82ca0a6fe44cc4fbfcbf91a31483101e1eb8dfc2 | |
| parent | 931ca24a70995c78958140b1d53dfd52e0e9bc4d (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.R | 2 |
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 |