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-effective_sample.R
if (requiet("rstanarm") && requiet("brms") && requiet("insight")) {
test_that("effective_sample", {
brms_1 <- insight::download_model("brms_1")
res <- effective_sample(brms_1)
expect_equal(
res,
data.frame(
Parameter = c("b_Intercept", "b_wt", "b_cyl"),
ESS = c(5242, 2071, 1951),
stringsAsFactors = F
)
)
brms_null_1 <- insight::download_model("brms_null_1")
res <- effective_sample(brms_null_1)
expect_equal(
res,
data.frame(
Parameter = c("b_Intercept"),
ESS = c(2888),
stringsAsFactors = F
)
)
brms_null_2 <- insight::download_model("brms_null_2")
res <- effective_sample(brms_null_2)
expect_equal(
res,
data.frame(
Parameter = c("b_Intercept"),
ESS = c(1059),
stringsAsFactors = F
)
)
})
}