tests/testthat/test-performance_plot.R

context("performance_plot")

test_that("base case works", {
  g = performance_plot(mtcars, "-disp", "am")
  expect_equal(g$data$cutoff,
               c(Inf, -sort(unique(mtcars$disp))))
})

Try the ezplot package in your browser

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

ezplot documentation built on May 29, 2024, 4:05 a.m.