diff options
Diffstat (limited to 'tests/testthat/test_nafta.R')
| -rw-r--r-- | tests/testthat/test_nafta.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/testthat/test_nafta.R b/tests/testthat/test_nafta.R index a50d8f36..ad0f1d63 100644 --- a/tests/testthat/test_nafta.R +++ b/tests/testthat/test_nafta.R @@ -47,7 +47,7 @@ test_that("Test data from Appendix D are correctly evaluated", { # From Figure D.1 dtx_sop <- matrix(c(407, 541, 429, 1352, 5192066, 2383), nrow = 3, ncol = 2) - expect_equivalent(round(res$distimes[, 1:2]), dtx_sop) + expect_equivalent(round(res$distimes[, 1:2]), dtx_sop, tolerance = 0.00001) C0_sop <- c(SFO = 83.8, IORE = 96.9, DFOP = 97.6) C0_mkin <- sapply(res$parameters, function(x) x["parent_0", "Estimate"]) |