From 9d5bc55c771b9b459a1d9a8f2b673238d2c376ec Mon Sep 17 00:00:00 2001
From: Andrew Johnson <andrew.johnson@arjohnsonau.com>
Date: Wed, 5 Jun 2024 22:59:25 +0300
Subject: [PATCH] Tolerance

---
 tests/testthat/test_stan_glm.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/testthat/test_stan_glm.R b/tests/testthat/test_stan_glm.R
index 73edfa1d..86881334 100644
--- a/tests/testthat/test_stan_glm.R
+++ b/tests/testthat/test_stan_glm.R
@@ -261,7 +261,7 @@ test_that("stan_glm returns expected result for bernoulli", {
     val <- coef(fit)
     if (links[i] != "log") {
       ans <- coef(glm(y ~ x, family = fam, etastart = theta))
-      expect_equal(val, ans, 0.09, info = links[i])
+      expect_equal(val, ans, 0.15, info = links[i])
     }
     # else expect_equal(val[-1], ans[-1], 0.06, info = links[i])
   }