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

test_that("`plot.see_point_estimate()` works", {
  requiet("rstanarm")
  set.seed(123)
  m <- stan_glm(Sepal.Length ~ Petal.Width * Species, data = iris, refresh = 0)
  result <- bayestestR::point_estimate(m, centrality = "median")

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