From 1a9232a1af98b79e254443fe942371d74aad4ac3 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 28 Feb 2022 18:12:39 +0100 Subject: Improve tests, skip some on Travis Respect digits argument when printing correlations in summaries --- R/summary.nlme.mmkin.R | 2 +- R/summary.nlmixr.mmkin.R | 2 +- R/summary.saem.mmkin.R | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) (limited to 'R') 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") -- cgit v1.2.1