Nothing
test_that("eta_squared_posterior", {
skip_on_cran()
skip_if_not_installed("rstanarm")
skip_if_not_installed("bayestestR")
skip_if_not_installed("car")
set.seed(444)
data("mtcars")
mtcars$cyl <- factor(mtcars$cyl)
fit_bayes <- rstanarm::stan_glm(mpg ~ cyl * wt + qsec,
data = mtcars,
family = gaussian(),
refresh = 0
)
# PARTIAL, type = 3 -------------------------------------------------------
mod <- lm(mpg ~ cyl * wt + qsec, data = mtcars)
a <- car::Anova(mod, type = 3)
es_tab <- eta_squared(a, partial = TRUE, verbose = FALSE)
es_post <- eta_squared_posterior(fit_bayes,
ss_function = car::Anova, type = 3,
verbose = FALSE
)
expect_equal(colnames(es_post), es_tab$Parameter)
# this is a very soft test...
es_tab_bayes <- bayestestR::describe_posterior(es_post)
expect_equal(order(es_tab_bayes$Median), order(es_tab$Eta2))
# non-PARTIAL, type = 3 ---------------------------------------------------
es_tab <- eta_squared(a, partial = FALSE, verbose = FALSE)
es_post <- eta_squared_posterior(fit_bayes,
partial = FALSE,
ss_function = car::Anova, type = 3,
verbose = FALSE
)
expect_equal(colnames(es_post), es_tab$Parameter)
# this is a very soft test...
es_tab_bayes <- bayestestR::describe_posterior(es_post)
expect_equal(order(es_tab_bayes$Median), order(es_tab$Eta2))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.