diff --git a/.github/workflows/R-CMD-check.yaml b/.github/workflows/R-CMD-check.yaml index eeeb82e..5386521 100644 --- a/.github/workflows/R-CMD-check.yaml +++ b/.github/workflows/R-CMD-check.yaml @@ -2,7 +2,7 @@ # Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help on: push: - branches: [main, master, develop, bug-fixes, rng_update] + branches: [main, master, develop, plot-bug-fix, rng_update] pull_request: branches: [main, master, develop] diff --git a/R/fidofit_methods.R b/R/fidofit_methods.R index dc49317..ef73fe0 100644 --- a/R/fidofit_methods.R +++ b/R/fidofit_methods.R @@ -614,7 +614,7 @@ predict.pibblefit <- function(object, newdata=NULL, response="LambdaX", size=NUL if(is.vector(size)){ size <- matrix(size, nrow = 1) } - + for (i in 1:iter){ for (j in 1:nnew){ Ypred[,j,i] <- rmultinom(1, size=size[j,i], prob=Pi[,j,i]) diff --git a/tests/testthat/test-pibble.R b/tests/testthat/test-pibble.R index c941c63..f6535b7 100644 --- a/tests/testthat/test-pibble.R +++ b/tests/testthat/test-pibble.R @@ -223,6 +223,7 @@ test_that("predict works with one sample", { preds <- predict(fit, newdata = matrix(sim$X[,1], ncol = 1), response = "LambdaX") preds <- predict(fit, newdata = matrix(sim$X[,1], ncol = 1), response = "Eta") preds <- predict(fit, newdata = matrix(sim$X[,1], ncol = 1), response = "Y") - + expect_true(TRUE) -}) \ No newline at end of file +}) +