osx <- tryCatch( { si <- Sys.info() if (!is.null(si["sysname"])) { si["sysname"] == "Darwin" || grepl("^darwin", R.version$os) } else { FALSE } }, error = function(e) { FALSE } ) .runThisTest <- Sys.getenv("RunAllinsightTests") == "yes" .runStanTest <- Sys.getenv("RunAllinsightStanTests") == "yes" if (.runThisTest && .runStanTest && !osx && requiet("lme4") && requiet("rstanarm")) { data(mtcars) 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) }) }
Generated by dwww version 1.15 on Sat Jun 15 19:22:52 CEST 2024.