update test for MCMC+BAS to check if tree is updated

and add nocov to edcase that can't be reached
merliseclyde · Dec 8, 2023 · 34f0eef · 34f0eef
1 parent 3308930
commit 34f0eef
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/glm_mcmcbas.c b/src/glm_mcmcbas.c
@@ -254,10 +254,10 @@ SEXP glm_mcmcbas(SEXP Y, SEXP X, SEXP Roffset, SEXP Rweights,
 		}
 		//Rprintf("Nunique = %d, m = %d, k = %d, mcurrent = %d %lf\n",
     //      nUnique, m, k, mcurrent, pigamma[0]);
-		if (m < k) {
-		  mcurrent = m;
+	if (m < k) {
+		  mcurrent = m;  // #nocov 
 		  }
-		else {mcurrent = k;}
+	else {mcurrent = k;}
 	}
 
 // # nocov start

diff --git a/tests/testthat/test-bas-glm.R b/tests/testthat/test-bas-glm.R
@@ -474,11 +474,11 @@ test_that("MCMC+BAS", {
   expect_equal(pima_BAS$n.models, pima_2$n.models)
 
   set.seed(42)
-  pima_BAS <- bas.glm(type ~ bp + npreg + bmi,
+  pima_BAS <- bas.glm(type ~ .,
                       data = Pima.tr, method = "MCMC+BAS",
                       betaprior = bic.prior(),
                       family = binomial(),
-                      modelprior = uniform(), MCMC.iterations = 5,  update = 2 )
+                      modelprior = uniform(), MCMC.iterations = 5,  update =  50)
   expect_equal(6, sum(pima_BAS$freq))
 })