library(tidyverse)
library(fpp3)
tourism <- readxl::read_excel("./data/tourism.xlsx")
tourism %>% mutate(date = yearquarter(Quarter)) %>% 
  select(-Quarter) %>%
  as_tsibble(key=c(Region, Purpose,Trips),index = date) -> tourism_ts

tourism_ts


us_employment %>% distinct(Title)
us_employment %>% filter(Title == 'Total Private') %>% autoplot(Employed)

help(aus_production)
aus_production %>% autoplot(Bricks)
help(pelt)
pelt %>% autoplot(Hare)
help(PBS)
PBS %>% filter(ATC1_desc == 'HO2')
help(us_gasoline)

View(aus_livestock)
aus_livestock %>% filter(Animal == 'Pigs' & State=='Victoria') %>%
  mutate(year =year(Month)) %>%
  filter(year >= 1990 & year <1995) %>% select(-year) -> pig

pig %>% gg_lag(Count,geom='point')
pig %>% autoplot(Count)
pig %>% ACF(Count)  %>% autoplot()+labs('pigs ACF')