tests/testthat/test-get_deviance.R

In insight: Easy Access to Model Information for Various Model Objects

skip_if_not_installed("rstanarm")

test_that("get_deviance - Bayesian lm", {
  m1 <- lm(mpg ~ disp, data = mtcars)
  m2 <- rstanarm::stan_glm(mpg ~ disp, data = mtcars, refresh = 0)
  expect_equal(get_deviance(m1), get_deviance(m2, verbose = FALSE), tolerance = 1e-1)
})

test_that("get_deviance - Bayesian glm", {
  m1 <- glm(vs ~ disp, data = mtcars, family = "binomial")
  m2 <- rstanarm::stan_glm(vs ~ disp, data = mtcars, family = "binomial", refresh = 0)
  expect_equal(get_deviance(m1), get_deviance(m2, verbose = FALSE), tolerance = 1e-1)
})