revdep/checks.noindex/see/old/see.Rcheck/tests/testthat/test-plot.si.R

test_that("`plot.see_si()` works", {
  requiet("rstanarm")
  requiet("logspline")

  set.seed(123)
  m <- stan_glm(Sepal.Length ~ Petal.Width * Species, data = iris, refresh = 0)
  result <- bayestestR::si(m)

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