test_that("plot_interval_coverage() works as expected", {
coverage <- example_quantile %>%
na.omit() %>%
as_forecast() %>%
get_coverage(by = c("model"))
p <- plot_interval_coverage(coverage)
expect_s3_class(p, "ggplot")
skip_on_cran()
suppressWarnings(vdiffr::expect_doppelganger("plot_interval_coverage", p))
# make sure that plot_interval_coverage() doesn't drop column names
expect_true(all(c("interval_coverage", "interval_coverage_deviation",
"quantile_coverage", "quantile_coverage_deviation") %in%
names(coverage)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.