Hi guys,
I'm trying to compare my original time series with my multiplicative seasonally adjusted, after that I will check additive to see which one is more smoother.
Here is my code, my issue is with the plot:
ibrary(forecast)
library(tsibble)
library(feasts)
library(tidyverse)
data_tsbl <- as_tsibble(ts(AirPassengers,
start = c(1949, 1),
frequency = 12))
data_tsbl_a <- data_tsbl %>%
model(STL(box_cox(value, lambda = 1))) %>%
components()
autoplot(data_tsbl) +
autolayer(data_tsbl_a$season_adjust, color = "red") +
labs(title = "Comparing original X multiplicative seasonal adjusted",
x = "Time",
y = "Number of Passengers")
theme_minimal()
Best
Lucas