From 123dee80e45232f20cf9c7e34b7c55cd690c38ee Mon Sep 17 00:00:00 2001 From: Daniel Date: Tue, 9 Jul 2024 11:24:01 +0200 Subject: [PATCH] add test --- tests/testthat/test-bayesian_as_frequentist.R | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/tests/testthat/test-bayesian_as_frequentist.R b/tests/testthat/test-bayesian_as_frequentist.R index 4aabba0b8..8066f3483 100644 --- a/tests/testthat/test-bayesian_as_frequentist.R +++ b/tests/testthat/test-bayesian_as_frequentist.R @@ -80,3 +80,15 @@ test_that("brms 0 + Intercept to freq", { expect_equal(coef(m1), coef(m2), tolerance = 1e-2) }) + + +test_that("brms Interaction terms to freq", { + skip_if_not_or_load_if_installed("brms") + + set.seed(333) + m <- brms::brm(qsec ~ mpg * as.factor(am), data = mtcars, refresh = 0) + m1 <- lm(qsec ~ mpg * as.factor(am), data = mtcars) + m2 <- convert_bayesian_as_frequentist(m) + + expect_equal(coef(m1), coef(m2), tolerance = 1e-2) +})