Statistics agencies: X11 and SEATS

Code

# -- Read in data (see the Moving averages page for details): --
dat <- readxl::read_excel(
  "data/NorwayEmployment_15-74years_bySex.xlsx") %>%
  as_tibble() %>%
  mutate(Quarter = str_replace(Quarter, "K","Q"),
         Quarter = yearquarter(Quarter))
names(dat)[3] <- "Employed"
dat <- dat %>%
  group_by(Quarter) %>%
  summarize(Employed = sum(Employed)) %>%
  as_tsibble(index = Quarter)

dat %>%
  model(
    classical = classical_decomposition(Employed,
                                        type = "multiplicative"),
    x11 = X_13ARIMA_SEATS(Employed ~ x11()),
    seats = X_13ARIMA_SEATS(Employed ~ seats())
  ) %>%
  components() %>%
  mutate(random = ifelse(.model == "classical",
                         random,
                         irregular)) %>%
  autoplot()

Warning: Removed 8 rows containing missing values or values outside the scale range
(`geom_line()`).