diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-03 16:07:59 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-03 16:07:59 +0100 |
| commit | 96c8558842e2494f42c0e148fb8d8f422000ecde (patch) | |
| tree | 6d92a453bd977cdf5ff3daf7562a9bd3218028a4 /R/nlme.mmkin.R | |
| parent | a5874ab7fce4616e80be69366ff0685332f47bf1 (diff) | |
Do not test residuals per default, improve nlme.mmkin
Do not give starting values for random effects in nlme.mmkin.
Diffstat (limited to 'R/nlme.mmkin.R')
| -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 6d24a044..e8418ebd 100644 --- a/R/nlme.mmkin.R +++ b/R/nlme.mmkin.R @@ -150,7 +150,7 @@ nlme.mmkin <- function(model, data = sys.frame(sys.parent()), thisCall[["data"]] <- nlme_data(model) if (missing(start)) { - thisCall[["start"]] <- mean_degparms(model, random = TRUE) + thisCall[["start"]] <- mean_degparms(model, random = FALSE) } thisCall[["fixed"]] <- lapply(as.list(dp_names), function(el) |