From c2a908c7fa613073cc5c2795fee839858f8faa71 Mon Sep 17 00:00:00 2001 From: Daniel Date: Tue, 23 Jul 2024 12:47:37 +0200 Subject: [PATCH] fix test --- tests/testthat/test-brms.R | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/tests/testthat/test-brms.R b/tests/testthat/test-brms.R index 007ece3d8..2bd985d77 100644 --- a/tests/testthat/test-brms.R +++ b/tests/testthat/test-brms.R @@ -513,15 +513,6 @@ test_that("find_algorithm", { ) }) -test_that("get_modelmatrix", { - out <- get_modelmatrix(m1) - expect_named(out, c("(Intercept)", "Age", "Base", "Trt1")) - m9 <- insight::download_model("brms_mo2") - skip_if(is.null(m9)) - out <- get_modelmatrix(m9) - expect_named(out, c("(Intercept)", "gear")) -}) - test_that("get_priors", { expect_equal( get_priors(m7), @@ -889,3 +880,12 @@ test_that("clean_parameters", { ignore_attr = TRUE ) }) + +test_that("get_modelmatrix", { + out <- get_modelmatrix(m1) + expect_identical(dim(out), c(236L, 4L)) + m9 <- insight::download_model("brms_mo2") + skip_if(is.null(m9)) + out <- get_modelmatrix(m9) + expect_identical(dim(out), c(32L, 2L)) +})