From d3da24d4d7e616ba2c862905a1a57fc05f453746 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 4 Mar 2019 10:36:53 +0100
Subject: signif for DTx when printing nafta results

In order to be able to test cross-platform
---
 R/nafta.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R/nafta.R')

diff --git a/R/nafta.R b/R/nafta.R
index 0d8c6cb9..6a8ad42f 100644
--- a/R/nafta.R
+++ b/R/nafta.R
@@ -73,7 +73,7 @@ print.nafta <- function(x, quiet = TRUE, digits = 3, ...) {
   print(x$parameters, digits = digits)
   t_rep <- .evaluate_nafta_results(x$S, x$S_c, x$distimes, quiet = quiet)
   cat("\nDTx values:\n")
-  print(x$distimes, digits = digits)
+  print(signif(x$distimes, digits = digits))
   cat("\nRepresentative half-life:\n")
   print(t_rep)
 }
-- 
cgit v1.2.1