From 428aee1f187b5ba46dc915ae84aac1389b455025 Mon Sep 17 00:00:00 2001
From: "Matthew L. Fidler" <matthew.fidler@gmail.com>
Date: Wed, 22 May 2024 15:50:40 -0500
Subject: [PATCH] increase tol

---
 tests/testthat/test-rxode-issue-450.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/testthat/test-rxode-issue-450.R b/tests/testthat/test-rxode-issue-450.R
index 8640f26f8..0e96ee348 100644
--- a/tests/testthat/test-rxode-issue-450.R
+++ b/tests/testthat/test-rxode-issue-450.R
@@ -1,4 +1,5 @@
 rxTest({
+
   test_that("Parallel solve vs single vs for; Issue RxODE#450", {
     TV_CLr  <- 6.54  # L/h, (CLr/F)
     TV_CLnr <- 2.39  # L/h, (CLnr/F)
@@ -119,7 +120,7 @@ rxTest({
         row.names(res.id) <- NULL
         res2 <- as.data.frame(bar3x[bar3x$sim.id == id,])
         row.names(res2) <- NULL
-        expect_equal(res.id, res2)
+        expect_equal(res.id, res2, tolerance=1e-4)
 
         res.all = rbind(res.all, res.id)
       }