aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2019-02-25 15:27:41 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2019-02-25 15:27:41 +0100
commitc90fdefb4cd438ae71c613f676c2ff6631d0a7a3 (patch)
treeaf75932b6db1e94e1ecbfa9483b82f7f35f7afce /R
parentbe809ea23b256f627216958fcd90489ee0844ab8 (diff)
Static documentation rebuilt by current pkgdown
Diffstat (limited to 'R')
-rw-r--r--R/nafta.R10
1 files changed, 7 insertions, 3 deletions
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
}

Contact - Imprint