tests/testthat/test-plt-coef.R

In Rbearcat: University of Cincinnati Themes and Utilities for Econometrics and Data Science

test_that("bcat_plt_coef works with single model", {
  m <- lm(mpg ~ wt + hp + cyl, data = mtcars)
  p <- bcat_plt_coef(m)
  expect_true(inherits(p, "ggplot"))
})

test_that("bcat_plt_coef works with multiple models", {
  m1 <- lm(mpg ~ wt + hp, data = mtcars)
  m2 <- lm(mpg ~ wt + hp + cyl, data = mtcars)
  p <- bcat_plt_coef(list("Base" = m1, "Extended" = m2))
  expect_true(inherits(p, "ggplot"))
})

test_that("bcat_plt_coef respects intercept = TRUE", {
  m <- lm(mpg ~ wt, data = mtcars)
  p <- bcat_plt_coef(m, intercept = TRUE)
  expect_true(inherits(p, "ggplot"))
})