test for error reported by Marcin Błażejowski in BAS 1.6.4

merliseclyde · Mar 30, 2024 · 8fcded7 · 8fcded7
1 parent da0da4f
commit 8fcded7
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/tests/testthat/test-logit-BIC-coef.R b/tests/testthat/test-logit-BIC-coef.R
@@ -0,0 +1,17 @@
+test_that("coef in logig glm", {
+  Nrep = 1000
+
+  # We load dataset
+  data("birthwt", package = "MASS")
+
+  birthwt$race <- as.factor(birthwt$race)
+
+  # bas.glm
+  set.seed(1000000)
+  birthwt.bas.glm <- bas.glm(low ~ . -bwt, data=birthwt,
+                             family=binomial(link = "logit"),
+                             method="MCMC",
+                             MCMC.iterations=Nrep,
+                             laplace=TRUE)
+  expect_no_error(coef(birthwt.bas.glm))
+})