n <- 5000
A <- rorth(4)
z1 <- rtvvar(n, alpha = 0.2, beta = 0.5)
z2 <- rtvvar(n, alpha = 0.1, beta = 1)
z3 <- arima.sim(n, model = list(ma = c(0.72, 0.24)))
z4 <- arima.sim(n, model = list(ar = c(0.34, 0.27, 0.18)))
Z <- cbind(z1, z2, z3, z4)
X <- as.ts(tcrossprod(Z, A)) # An mts object
res <- SSAsave(X, K = 6)
res$D # Two non-zero eigenvalues
screeplot(res, type = "lines") # This can also be seen in screeplot
ggscreeplot(res, type = "lines") # ggplot version of screeplot
# Plotting the components as an mts object
plot(res) # The first two are nonstationary in variance
Run the code above in your browser using DataLab