# Decompose 'co2' series with default parameters
s <- new.ssa(co2)
# Reconstruct the series, grouping elementary subseries 2, 3 and 4, 5.
r <- reconstruct(s, groups = list(1, c(2,3), c(4,5)))
plot(r$F1, col = "black")
lines(r$F1 + r$F2, col = "red")
lines(r$F1 + r$F2 + r$F3, col = "blue")
# 'groups' argument might contain duplicate entires as well
r <- reconstruct(s, groups = list(1, 1:3, 1:5))
plot(r$F1, col = "black")
lines(r$F2, col = "red")
lines(r$F3, col = "blue")
Run the code above in your browser using DataLab