tests/testthat/test-plot.R

test_that("plot function works", {
  
  model <- lm(mpg ~ wt, data = mtcars)
  plot <- plot_residuals(model)
  expect_true("ggplot" %in% class(plot))
  
})
PatrickEslick/BrasiliaWorkshop documentation built on Dec. 18, 2021, 6:41 a.m.