diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-26 20:28:15 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-26 20:33:32 +0100 |
| commit | 396e40d2c45d81a8e74c41a2f632665021e980a1 (patch) | |
| tree | c7ab9b5356361b1939e9b00183a7f31071782f64 /tests/testthat/test_nafta.R | |
| parent | 64e636d11311be57978ef394c48c9b43fe219059 (diff) | |
NAFTA SOP Attachment vignette
Also:
- Change rounding in print.nafta
- Add dots argument to nafta()
- Use cores=1 in examples
- Restrict N in IORE model to values > 0
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"]) |