data <- as.ts(rnorm(48, mean = 100, sd = 48), frequency = 12)
sl <- 12
si <- SI(data, sl)
deseasonalized <- deseasonalize(data, si$Seasonal_Index, sl)
seasonalized <- seasonalize(deseasonalized$Deseasonalized, si$Seasonal_Index, sl)
Run the code above in your browser using DataLab