swh:1:snp:2c68a6c5a8af2f06ac2c0225927f25b54fd1f9d0
Tip revision: 428249f43a9c6fd0c425b28deb5fee51a9525d69 authored by Dominique Makowski on 18 September 2022, 01:46:03 UTC
version 0.13.0
version 0.13.0
Tip revision: 428249f
test-different_models.R
osx <- tryCatch(
{
si <- Sys.info()
if (!is.null(si["sysname"])) {
si["sysname"] == "Darwin" || grepl("^darwin", R.version$os)
} else {
FALSE
}
},
error = function(e) {
FALSE
}
)
if (!osx && requiet("rstanarm")) {
test_that("insight::get_predicted", {
x <- suppressWarnings(
insight::get_predicted(
rstanarm::stan_glm(hp ~ mpg, data = mtcars, iter = 500, refresh = 0)
)
)
rez <- point_estimate(x)
expect_equal(c(nrow(rez), ncol(rez)), c(32, 4))
rez <- hdi(x)
expect_equal(c(nrow(rez), ncol(rez)), c(32, 4))
rez <- eti(x)
expect_equal(c(nrow(rez), ncol(rez)), c(32, 4))
rez <- ci(x)
expect_equal(c(nrow(rez), ncol(rez)), c(32, 4))
rez <- map_estimate(x)
expect_equal(c(nrow(rez), ncol(rez)), c(32, 2))
rez <- p_direction(x)
expect_equal(c(nrow(rez), ncol(rez)), c(32, 2))
# rez <- p_map(x)
# expect_equal(c(nrow(rez), ncol(rez)), c(2, 2))
#
# rez <- p_significance(x)
# expect_equal(c(nrow(rez), ncol(rez)), c(2, 2))
#
# rez <- rope(x)
# expect_equal(c(nrow(rez), ncol(rez)), c(2, 5))
rez <- describe_posterior(x)
expect_equal(c(nrow(rez), ncol(rez)), c(32, 5))
# rez <- estimate_density(x)
# expect_equal(c(nrow(rez), ncol(rez)), c(2048, 3))
})
}
if (!osx && requiet("bayesQR")) {
test_that("bayesQR", {
x <- bayesQR::bayesQR(Sepal.Length ~ Petal.Width, data = iris, quantile = 0.1, alasso = TRUE, ndraw = 500)
rez <- p_direction(x)
expect_equal(c(nrow(rez), ncol(rez)), c(2, 2))
rez <- p_map(x)
expect_equal(c(nrow(rez), ncol(rez)), c(2, 2))
rez <- p_significance(x)
expect_equal(c(nrow(rez), ncol(rez)), c(2, 2))
rez <- rope(x)
expect_equal(c(nrow(rez), ncol(rez)), c(2, 5))
rez <- hdi(x)
expect_equal(c(nrow(rez), ncol(rez)), c(2, 4))
rez <- eti(x)
expect_equal(c(nrow(rez), ncol(rez)), c(2, 4))
rez <- map_estimate(x)
expect_equal(c(nrow(rez), ncol(rez)), c(2, 2))
rez <- point_estimate(x)
expect_equal(c(nrow(rez), ncol(rez)), c(2, 4))
rez <- describe_posterior(x)
expect_equal(c(nrow(rez), ncol(rez)), c(2, 10))
rez <- estimate_density(x)
expect_equal(c(nrow(rez), ncol(rez)), c(2048, 3))
})
}