4  Decomposition of Time series data in R