context("test-hilo.R")
test_that("Extracting intervals from a distribution", {
skip_if_not_installed("fable")
fc_sum <- fbl %>%
mutate(`80%` = hilo(value, 80))
expect_s3_class(fc_sum$`80%`, "hilo")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.