Address failure on travis

Also reduce the digits in the representative half-live given by nafta()

1 files changed, 1 insertions, 1 deletions

diff --git a/R/nafta.R b/R/nafta.R
index a98a7852..ef752e0c 100644
--- a/R/nafta.R
+++ b/R/nafta.R
@@ -75,7 +75,7 @@ print.nafta <- function(x, quiet = TRUE, digits = 3, ...) {
   cat("\nDTx values:\n")
   print(signif(x$distimes, digits = digits))
   cat("\nRepresentative half-life:\n")
-  print(t_rep)
+  print(round(t_rep, 2))
 }
 
 .evaluate_nafta_results <- function(S, S_c, distimes, quiet = FALSE) {