diff options
| -rw-r--r-- | R/nafta.R | 2 | ||||
| -rw-r--r-- | tests/testthat/NAFTA_SOP_Appendix_B.txt | 2 | ||||
| -rw-r--r-- | tests/testthat/NAFTA_SOP_Appendix_D.txt | 6 |
3 files changed, 5 insertions, 5 deletions
@@ -73,7 +73,7 @@ print.nafta <- function(x, quiet = TRUE, digits = 3, ...) { print(x$parameters, digits = digits) t_rep <- .evaluate_nafta_results(x$S, x$S_c, x$distimes, quiet = quiet) cat("\nDTx values:\n") - print(x$distimes, digits = digits) + print(signif(x$distimes, digits = digits)) cat("\nRepresentative half-life:\n") print(t_rep) } diff --git a/tests/testthat/NAFTA_SOP_Appendix_B.txt b/tests/testthat/NAFTA_SOP_Appendix_B.txt index e5479b88..26a340c5 100644 --- a/tests/testthat/NAFTA_SOP_Appendix_B.txt +++ b/tests/testthat/NAFTA_SOP_Appendix_B.txt @@ -29,7 +29,7 @@ DTx values: DT50 DT90 DT50_rep SFO 2.74 9.1 2.74 IORE 1.37 28.5 8.57 -DFOP 2.17 39.9 54.44 +DFOP 2.17 39.9 54.40 Representative half-life: [1] 8.573302 diff --git a/tests/testthat/NAFTA_SOP_Appendix_D.txt b/tests/testthat/NAFTA_SOP_Appendix_D.txt index 7ff2817c..1e846a16 100644 --- a/tests/testthat/NAFTA_SOP_Appendix_D.txt +++ b/tests/testthat/NAFTA_SOP_Appendix_D.txt @@ -27,9 +27,9 @@ g 2.88e-01 1.31e-04 1.78e-01 4.30e-01 DTx values: DT50 DT90 DT50_rep -SFO 407 1352 407 -IORE 541 5192060 1562966 -DFOP 429 2383 841 +SFO 407 1350 407 +IORE 541 5190000 1560000 +DFOP 429 2380 841 Representative half-life: [1] 841.4096 |