Skip to content

Commit

Permalink
Merge branch 'master' into develop
Browse files Browse the repository at this point in the history
  • Loading branch information
michellepistner committed May 1, 2024
2 parents 75c2a19 + 0b935f7 commit 4db0414
Show file tree
Hide file tree
Showing 3 changed files with 5 additions and 4 deletions.
2 changes: 1 addition & 1 deletion .github/workflows/R-CMD-check.yaml
Original file line number Diff line number Diff line change
Expand Up @@ -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]
Expand Down
2 changes: 1 addition & 1 deletion R/fidofit_methods.R
Original file line number Diff line number Diff line change
Expand Up @@ -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])
Expand Down
5 changes: 3 additions & 2 deletions tests/testthat/test-pibble.R
Original file line number Diff line number Diff line change
Expand Up @@ -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)
})
})

0 comments on commit 4db0414

Please sign in to comment.