https://github.com/cran/bayestestR
Revision fe07bfa906d7e155439160caee538a3449cd3877 authored by Dominique Makowski on 08 April 2019, 08:42:41 UTC, committed by cran-robot on 08 April 2019, 08:42:41 UTC
0 parent
Tip revision: fe07bfa906d7e155439160caee538a3449cd3877 authored by Dominique Makowski on 08 April 2019, 08:42:41 UTC
version 0.1.0
version 0.1.0
Tip revision: fe07bfa
test-brms.R
context("brms")
test_that("brms", {
# testthat::skip_on_travis()
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_is(equivalence_test(model), "data.frame")
testthat::expect_is(map_estimate(model), "data.frame")
testthat::expect_is(p_map(model), "data.frame")
testthat::expect_is(p_rope(model), "data.frame")
testthat::expect_is(p_direction(model), "data.frame")
testthat::expect_equal(colnames(hdi(model)), c("Parameter", "CI", "CI_low", "CI_high"))
testthat::expect_equal(colnames(hdi(model, effects = "all")), c("Parameter", "CI", "CI_low", "CI_high", "Group"))
testthat::expect_equal(nrow(equivalence_test(model)), 2)
})
Computing file changes ...