aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2019-03-04 10:12:43 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2019-03-04 10:12:43 +0100
commitd0a358a8f4fd03c95536409523e492eb15726f44 (patch)
treefefa34562fb4557921d88f64c6827401a9c1ed99 /R
parent4e85356bbe535aaf5bc7dc25238ed6a8d1f9913c (diff)
Review tests and examples based on winbuilder results
Static documentation rebuilt by pkgdown
Diffstat (limited to 'R')
-rw-r--r--R/nafta.R6
1 files changed, 3 insertions, 3 deletions
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)
}

Contact - Imprint