signif for DTx when printing nafta results

In order to be able to test cross-platform

1 files changed, 1 insertions, 1 deletions

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)
 }