tests/testthat/test-plot_model.R

test_that("output of plot_model() is stable", {
  m1 <- lm(disp ~ mpg, mtcars)
  m2 <- lm(disp ~ mpg + hp + cyl + mpg:cyl, mtcars)

  skip_on_ci()
  skip_on_cran()

  vdiffr::expect_doppelganger("Plot model - m1", plot_model(m1))
  vdiffr::expect_doppelganger("Plot model - m2", plot_model(m2))
})

Try the lvmisc package in your browser

Any scripts or data that you put into this service are public.

lvmisc documentation built on April 5, 2021, 5:06 p.m.