revdep/checks.noindex/see/new/see.Rcheck/tests/testthat/test-plot.performance_pp_check.R

test_that("`print.see_performance_pp_check()` works", {
  requiet("performance")
  model <- lm(Sepal.Length ~ Species * Petal.Width + Petal.Length,
    data = iris
  )

  expect_s3_class(plot(check_posterior_predictions(model)), "gg")
})
aloy/qqplotr documentation built on Feb. 2, 2023, 4:56 a.m.