Nothing
test_that("output from the test match the result when using variables", {
b <- ols_test_bartlett(mtcars, 'mpg', 'disp')
expect_equal(round(b$fstat, 3), 142.336)
expect_equal(b$pval, 0)
expect_equal(b$df, 1)
expect_equal(b$var_c, c("mpg", "disp"), ignore_attr = TRUE)
expect_null(b$g_var)
})
test_that("output from test match the result when using grouping variables", {
if (requireNamespace("descriptr", quietly = TRUE)) {
b <- ols_test_bartlett(descriptr::mtcarz, 'mpg', group_var = 'vs')
expect_equal(round(b$fstat, 3), 1.585)
expect_equal(round(b$pval, 3), 0.208)
expect_equal(b$df, 1)
expect_equal(b$var_c, "mpg")
expect_equal(b$g_var, "vs")
}
})
test_that("bartlett test throws error messages", {
expect_error(ols_test_bartlett(mtcars, 'mpg'), "Please specify at least two variables.")
})
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.