From 1a9232a1af98b79e254443fe942371d74aad4ac3 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
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 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R/summary.nlme.mmkin.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
-- 
cgit v1.2.1