Tolerance

andrjohns · andrjohns · commit 9d5bc55c771b · 2024-06-05T22:59:25.000+03:00
diff --git 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])
   }

Original file line number	Diff line number	Diff line change
`@@ -261,7 +261,7 @@ test_that("stan_glm returns expected result for bernoulli", {`
`261`	`261`	`val <- coef(fit)`
`262`	`262`	`if (links[i] != "log") {`
`263`	`263`	`ans <- coef(glm(y ~ x, family = fam, etastart = theta))`
`264`		`- expect_equal(val, ans, 0.09, info = links[i])`
	`264`	`+ expect_equal(val, ans, 0.15, info = links[i])`
`265`	`265`	`}`
`266`	`266`	`# else expect_equal(val[-1], ans[-1], 0.06, info = links[i])`
`267`	`267`	`}`