https://github.com/cran/bayestestR
Revision 40f7c88ddf855896018cf20ec8a7ac5fbd0ea2fb authored by Dominique Makowski on 27 January 2020, 05:30:28 UTC, committed by cran-robot on 27 January 2020, 05:30:28 UTC
1 parent d8462ad
Tip revision: 40f7c88ddf855896018cf20ec8a7ac5fbd0ea2fb authored by Dominique Makowski on 27 January 2020, 05:30:28 UTC
version 0.5.1
version 0.5.1
Tip revision: 40f7c88
test-brms.R
if (requireNamespace("brms", quietly = TRUE)) {
context("brms")
test_that("brms", {
# testthat::skip_on_travis()
testthat::skip_on_cran()
set.seed(333)
library(brms)
model <- insight::download_model("brms_mixed_1")
testthat::expect_is(hdi(model), "data.frame")
testthat::expect_is(ci(model), "data.frame")
testthat::expect_is(rope(model), "data.frame")
# testthat::expect_true("equivalence_test" %in% class(equivalence_test(model)))
testthat::expect_is(map_estimate(model), "data.frame")
testthat::expect_is(p_map(model), "data.frame")
testthat::expect_is(mhdior(model), "data.frame")
testthat::expect_is(p_direction(model), "data.frame")
testthat::expect_equal(colnames(hdi(model)), c("Parameter", "CI", "CI_low", "CI_high", "Effects", "Component"))
testthat::expect_equal(colnames(hdi(model, effects = "all")), c("Parameter", "CI", "CI_low", "CI_high", "Effects", "Component"))
# testthat::expect_equal(nrow(equivalence_test(model)), 2)
})
}
Computing file changes ...