diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-02-28 18:12:39 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-02-28 18:14:24 +0100 |
| commit | 1a9232a1af98b79e254443fe942371d74aad4ac3 (patch) | |
| tree | 11bb94be1b7bfd0aab72e129d4353b92d3e04595 /R | |
| parent | 7171798e8026238791f2065f167e3c9af50231d9 (diff) | |
Improve tests, skip some on Travis
Respect digits argument when printing correlations in summaries
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") |