# Decompose 'co2' series with default parameters
s <- ssa(co2)
# Form 3 series from the initial 6 ones:
lst <- clusterify(s, group = 1:6, nclust=3)
# Automatic grouping:
print(lst)
# Check separability
w <- wcor(s, groups = lst)
plot(w)
Run the code above in your browser using DataLab