From c90fdefb4cd438ae71c613f676c2ff6631d0a7a3 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 25 Feb 2019 15:27:41 +0100 Subject: Static documentation rebuilt by current pkgdown --- R/nafta.R | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'R/nafta.R') diff --git a/R/nafta.R b/R/nafta.R index 102a9ad6..2af2404f 100644 --- a/R/nafta.R +++ b/R/nafta.R @@ -65,7 +65,10 @@ plot.nafta <- function(x, legend = FALSE, main = "auto", ...) { } print.nafta <- function(x, quiet = TRUE, ...) { - cat("Parameters:\n") + cat("Sums of squares:\n") + print(x$S) + print(x$S_c) + cat("\nParameters:\n") print(x$parameters) t_rep <- .evaluate_nafta_results(x$S, x$S_c, x$distimes, quiet = quiet) cat("\nDTx values:\n") @@ -95,8 +98,9 @@ print.nafta <- function(x, quiet = TRUE, ...) { t_rep <- t_IORE } else { if (!quiet) { - message("The representative half-life of the IORE model is longer than the one corresponding to the terminal degradation rate found with the DFOP model.") - message("The reprentative half-life obtained from the DFOP model may be used") + message("The representative half-life of the IORE model is longer than the one corresponding") + message("to the terminal degradation rate found with the DFOP model.") + message("The representative half-life obtained from the DFOP model may be used") } t_rep <- t_DFOP2 } -- cgit v1.2.1