# Example using a sample time series
tsdata <- ts(rnorm(120), frequency = 12)
res <- SSAdecomp(data = tsdata, L = 12, corr_thr = 0.97, horizon = 12)
# Print summary
print(res)
# Show detailed correlation messages
res_verbose <- SSAdecomp(data = tsdata, L = 12, corr_thr = 0.97, horizon = 12, verbose = TRUE)
Run the code above in your browser using DataLab