diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2021-06-11 11:14:45 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2021-06-11 11:14:45 +0200 |
| commit | 0c9b2f0e3c8ce65cb790c9e048476784cbbea070 (patch) | |
| tree | 578f716c9daaff9502a95178e2d6ba63da438fbe /R/mean_degparms.R | |
| parent | c6eb6b2bb598002523c3d34d71b0e4a99671ccd6 (diff) | |
Finished 'summary.nlmixr.mmkin', checks, docs
Diffstat (limited to 'R/mean_degparms.R')
| -rw-r--r-- | R/mean_degparms.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/R/mean_degparms.R b/R/mean_degparms.R index ec7f4342..ec20c068 100644 --- a/R/mean_degparms.R +++ b/R/mean_degparms.R @@ -4,6 +4,7 @@ #' of the fitted degradation model parameters. If random is TRUE, a list with #' fixed and random effects, in the format required by the start argument of #' nlme for the case of a single grouping variable ds. +#' @param object An mmkin row object containing several fits of the same model to different datasets #' @param random Should a list with fixed and random effects be returned? #' @param test_log_parms If TRUE, log parameters are only considered in #' the mean calculations if their untransformed counterparts (most likely @@ -51,7 +52,7 @@ mean_degparms <- function(object, random = FALSE, test_log_parms = FALSE, conf.l # For nlmixr we can specify starting values for standard deviations eta, and # we ignore uncertain parameters if test_log_parms is FALSE - eta <- apply(degparm_mat_trans_OK, 1, sd, na.rm = TRUE) + eta <- apply(degparm_mat_trans_OK, 1, stats::sd, na.rm = TRUE) return(list(fixed = fixed, random = list(ds = random), eta = eta)) } else { |