tests/testthat/test-plot.equivalence_test.R

test_that("`plot.see_equivalence_test()` works", {
  skip_if_not_installed("ggridges")
  m_aov <- stats::aov(mpg ~ factor(am) * factor(cyl), data = mtcars)
  result_ez <- effectsize::eta_squared(m_aov, verbose = FALSE)
  expect_s3_class(plot(result_ez), "gg")
})

Try the see package in your browser

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

see documentation built on Nov. 3, 2023, 5:10 p.m.