From 396e40d2c45d81a8e74c41a2f632665021e980a1 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Tue, 26 Feb 2019 20:28:15 +0100
Subject: 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
---
 tests/testthat/test_nafta.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/testthat/test_nafta.R')

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"])
-- 
cgit v1.2.1