context("setup-data.R")
USAccDeaths_tbl <- as_tsibble(USAccDeaths)
UKLungDeaths <- as_tsibble(cbind(mdeaths, fdeaths), pivot_longer = FALSE)
fc_mean <- function(x){
if(inherits(x, "distribution")) mean(x) else x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.