diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/summary.nlme.mmkin.R | 2 | ||||
| -rw-r--r-- | R/summary.nlmixr.mmkin.R | 2 | ||||
| -rw-r--r-- | R/summary.saem.mmkin.R | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/R/summary.nlme.mmkin.R b/R/summary.nlme.mmkin.R index b42d5d7b..be7f0441 100644 --- a/R/summary.nlme.mmkin.R +++ b/R/summary.nlme.mmkin.R @@ -200,7 +200,7 @@ print.summary.nlme.mmkin <- function(x, digits = max(3, getOption("digits") - 3) if (nrow(x$confint_trans) > 1) { corr <- x$corFixed class(corr) <- "correlation" - print(corr, title = "\nCorrelation:", ...) + print(corr, title = "\nCorrelation:", rdig = digits, ...) } cat("\n") # Random effects diff --git a/R/summary.nlmixr.mmkin.R b/R/summary.nlmixr.mmkin.R index a023f319..94d4ed93 100644 --- a/R/summary.nlmixr.mmkin.R +++ b/R/summary.nlmixr.mmkin.R @@ -211,7 +211,7 @@ print.summary.nlmixr.mmkin <- function(x, digits = max(3, getOption("digits") - if (nrow(x$confint_trans) > 1) { corr <- x$corFixed class(corr) <- "correlation" - print(corr, title = "\nCorrelation:", ...) + print(corr, title = "\nCorrelation:", rdig = digits, ...) } cat("\nRandom effects (omega):\n") diff --git a/R/summary.saem.mmkin.R b/R/summary.saem.mmkin.R index 204cb46f..fa52a579 100644 --- a/R/summary.saem.mmkin.R +++ b/R/summary.saem.mmkin.R @@ -229,7 +229,7 @@ print.summary.saem.mmkin <- function(x, digits = max(3, getOption("digits") - 3) if (nrow(x$confint_trans) > 1) { corr <- x$corFixed class(corr) <- "correlation" - print(corr, title = "\nCorrelation:", ...) + print(corr, title = "\nCorrelation:", rdig = digits, ...) } cat("\nRandom effects:\n") |