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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.