## 4.2 Decomposition of time series

Plotting time series data is an important first step in analyzing their various components. Beyond that, however, we need a more formal means for identifying and removing characteristics such as a trend or seasonal variation. As discussed in lecture, the decomposition model reduces a time series into 3 components: trend, seasonal effects, and random errors. In turn, we aim to model the random errors as some form of stationary process.

Let’s begin with a simple, additive decomposition model for a time series $$x_t$$

$$$\tag{4.1} x_t = m_t + s_t + e_t,$$$

where, at time $$t$$, $$m_t$$ is the trend, $$s_t$$ is the seasonal effect, and $$e_t$$ is a random error that we generally assume to have zero-mean and to be correlated over time. Thus, by estimating and subtracting both $$\{m_t\}$$ and $$\{s_t\}$$ from $$\{x_t\}$$, we hope to have a time series of stationary residuals $$\{e_t\}$$.

### 4.2.2 Estimating seasonal effects

Once we have an estimate of the trend for time $$t$$ ($$\hat{m}_t$$) we can easily obtain an estimate of the seasonal effect at time $$t$$ ($$\hat{s}_t$$) by subtraction

$$$\tag{4.4} \hat{s}_t = x_t - \hat{m}_t,$$$

which is really easy to do in R:

## seasonal effect over time
co2_seas <- co2 - co2_trend

This estimate of the seasonal effect for each time $$t$$ also contains the random error $$e_t$$, however, which can be seen by plotting the time series and careful comparison of Equations (4.1) and (4.4).

## plot the monthly seasonal effects
plot.ts(co2_seas, ylab = "Seasonal effect", xlab = "Month", cex = 1)

We can obtain the overall seasonal effect by averaging the estimates of $$\{\hat{s}_t\}$$ for each month and repeating this sequence over all years.

## length of ts
ll <- length(co2_seas)
## frequency (ie, 12)
ff <- frequency(co2_seas)
## number of periods (years); %/% is integer division
periods <- ll%/%ff
## index of cumulative month
index <- seq(1, ll, by = ff) - 1
## get mean by month
mm <- numeric(ff)
for (i in 1:ff) {
mm[i] <- mean(co2_seas[index + i], na.rm = TRUE)
}
## subtract mean to make overall mean = 0
mm <- mm - mean(mm)

Before we create the entire time series of seasonal effects, let’s plot them for each month to see what is happening within a year:

## plot the monthly seasonal effects
plot.ts(mm, ylab = "Seasonal effect", xlab = "Month", cex = 1)

It looks like, on average, that the CO$$_2$$ concentration is highest in spring (March) and lowest in summer (August) (Figure 4.5). (Aside: Do you know why this is?)

Finally, let’s create the entire time series of seasonal effects $$\{\hat{s}_t\}$$:

## create ts object for season
co2_seas_ts <- ts(rep(mm, periods + 1)[seq(ll)], start = start(co2_seas),
frequency = ff)

### 4.2.3 Completing the model

The last step in completing our full decomposition model is obtaining the random errors $$\{\hat{e}_t\}$$, which we can get via simple subtraction

$$$\tag{4.5} \hat{e}_t = x_t - \hat{m}_t - \hat{s}_t.$$$

Again, this is really easy in R:

## random errors over time
co2_err <- co2 - co2_trend - co2_seas_ts

Now that we have all 3 of our model components, let’s plot them together with the observed data $$\{x_t\}$$. The results are shown in Figure 4.6.

## plot the obs ts, trend & seasonal effect
plot(cbind(co2, co2_trend, co2_seas_ts, co2_err), main = "",
yax.flip = TRUE)

### 4.2.4 Using decompose() for decomposition

Now that we have seen how to estimate and plot the various components of a classical decomposition model in a piecewise manner, let’s see how to do this in one step in R with the function decompose(), which accepts a ts object as input and returns an object of class decomposed.ts.

## decomposition of CO2 data
co2_decomp <- decompose(co2)

co2_decomp is a list with the following elements, which should be familiar by now:

• x: the observed time series $$\{x_t\}$$
• seasonal: time series of estimated seasonal component $$\{\hat{s}_t\}$$
• figure: mean seasonal effect (length(figure) == frequency(x))
• trend: time series of estimated trend $$\{\hat{m}_t\}$$
• random: time series of random errors $$\{\hat{e}_t\}$$
• type: type of error ("additive" or "multiplicative")

We can easily make plots of the output and compare them to those in Figure 4.6:

## plot the obs ts, trend & seasonal effect
plot(co2_decomp, yax.flip = TRUE)

The results obtained with decompose() (Figure 4.7) are identical to those we estimated previously.

Another nice feature of the decompose() function is that it can be used for decomposition models with multiplicative (i.e., non-additive) errors (e.g., if the original time series had a seasonal amplitude that increased with time). To do, so pass in the argument type = "multiplicative", which is set to type = "additive" by default.