From 129ff33d91bbea9a90b11f8230b78493eba45fe3 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 10 Apr 2019 11:06:51 +0200 Subject: Address failure on travis Also reduce the digits in the representative half-live given by nafta() --- 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 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) { -- cgit v1.2.1