tests/testthat/test-bartlett.R

In rsquaredacademy/olsrr: Tools for Building OLS Regression Models

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.")
})