tests/testthat/setup-data.R

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
}

Try the fable package in your browser

Any scripts or data that you put into this service are public.

fable documentation built on May 29, 2024, 7:25 a.m.