add unit tests for bayesglm.fit (issue #67)

merliseclyde · Nov 17, 2022 · 0be6032 · 0be6032
1 parent 5118a50
commit 0be6032
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-bas-glm.R b/tests/testthat/test-bas-glm.R
@@ -1,5 +1,6 @@
 context("bas.glm")
 
+
 test_that("bas.glm initprobs" , {
  data(Pima.tr, package="MASS")
  expect_error(bas.glm(type ~ .,

diff --git a/tests/testthat/test-glm-fit.R b/tests/testthat/test-glm-fit.R
@@ -0,0 +1,9 @@
+context("bayesglm fit")
+
+# Github issue #67
+test_that("bayesglm.fit", {
+  data(Pima.tr, package="MASS")
+  expect_error(bayesglm.fit(y = cbind((Pima.tr$type == "Yes"), 5.0), x = 1.0*Pima.tr$age, 
+                            family=binomial(), coefprior=bic.prior(100)))
+
+})