From d0a358a8f4fd03c95536409523e492eb15726f44 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 4 Mar 2019 10:12:43 +0100 Subject: Review tests and examples based on winbuilder results Static documentation rebuilt by pkgdown --- R/nafta.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'R') diff --git a/R/nafta.R b/R/nafta.R index d4d63f6b..0d8c6cb9 100644 --- a/R/nafta.R +++ b/R/nafta.R @@ -64,16 +64,16 @@ plot.nafta <- function(x, legend = FALSE, main = "auto", ...) { plot(x$mmkin, ..., legend = legend, main = main) } -print.nafta <- function(x, quiet = TRUE, ...) { +print.nafta <- function(x, quiet = TRUE, digits = 3, ...) { cat("Sums of squares:\n") print(x$S) cat("\nCritical sum of squares for checking the SFO model:\n") print(x$S_c) cat("\nParameters:\n") - print(x$parameters) + print(x$parameters, digits = digits) t_rep <- .evaluate_nafta_results(x$S, x$S_c, x$distimes, quiet = quiet) cat("\nDTx values:\n") - print(signif((x$distimes), 3)) + print(x$distimes, digits = digits) cat("\nRepresentative half-life:\n") print(t_rep) } -- cgit v1.2.1