fix tests

easystats · Sep 22, 2023 · bc7a323 · bc7a323
1 parent 6c1279b
commit bc7a323
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/R/n_obs.R b/R/n_obs.R
@@ -91,6 +91,7 @@ n_obs.glm <- function(x, disaggregate = FALSE, ...) {
     } else if (!is.data.frame(resp_data) && .is.fraction(resp_data)) {
       .nobs <- sum(get_weights(x))
     }
+    .nobs <- as.integer(.nobs)
   }
 
   .nobs

diff --git a/tests/testthat/test-glmmTMB.R b/tests/testthat/test-glmmTMB.R
@@ -964,7 +964,7 @@ test_that("model_info, ordered beta", {
   m <- glmmTMB::glmmTMB(
     y ~ Days + (Days | Subject),
     data = sleepstudy,
-    family = ordbeta()
+    family = glmmTMB::ordbeta()
   )
   out <- model_info(m)
   expect_true(out$is_orderedbeta)

diff --git a/tests/testthat/test-rstanarm.R b/tests/testthat/test-rstanarm.R
@@ -233,8 +233,8 @@ test_that("model_info-stanreg-glm", {
 })
 
 test_that("n_parameters", {
-  expect_identical(n_parameters(m1), 21)
-  expect_identical(n_parameters(m1, effects = "fixed"), 5)
+  expect_identical(n_parameters(m1), 21L)
+  expect_identical(n_parameters(m1, effects = "fixed"), 5L)
 })
 
 test_that("get_priors", {
-Original file line number
+Diff line change
@@ Expand Up / @@ -91,6 +91,7 @@ n_obs.glm <- function(x, disaggregate = FALSE, ...) { @@
         } else if (!is.data.frame(resp_data) && .is.fraction(resp_data)) {
           .nobs <- sum(get_weights(x))
         }
+        .nobs <- as.integer(.nobs)
       }
       .nobs
@@ Expand Down @@