Unit 5 Autocorrelation Concepts and Notation
5.1 Theoretical concept of ρ
ρ=E[(X−μX)(Y−μY)]σXσY=covariancebetweenX+yσXσY
In a stationary time series, we have autocorrelation and autocovariance
5.2 autocovariance
γk=E[(Xt−μ)(Xt+k−μ)]
5.3 autocorrelation
ρk=E[(Xt−μ)(Xt+k−μ)]σXtσXt+k=E[(Xt−μ)(Xt+k−μ)]σ2X=γkσ2X
This works because of constant variance and constant mean!
Note that in a stationary time series:
σ2X=1E[(Xt−μ)2]=E[(Xt−μ)(Xt−μ)]=γ0
Therefore:
ρk=γkγ0
5.4 Stationary Covariance
Correlation is not affected by where, only by how far apart, that is: ρh=Cor(Xt,Xt+h)
Let us try it out with this little snippet:
ggsplitacf <- function(vec) {
h1 <- vec[1:(length(vec)/2)]
h2 <- vec[(length(vec)/2):length(vec)]
first <- ggacf(vec) + ggthemes::theme_few()
second <- ggacf(h1) + ggthemes::theme_few()
third <- ggacf(h2) + ggthemes::theme_few()
cowplot::plot_grid(first, second, third, labels = c("original", "first half",
"second half"), nrow = 2, align = "v")
}
Realize = gen.arma.wge(500, 0.95, 0, sn = 784)
Lets check out the ACF
ggsplitacf(Realize)
This looks pretty stationary to me! Let’s try with some sample data:
data("noctula")
tplot(noctula) + ggthemes::theme_few()
ggsplitacf(noctula)
So in this case our mean probably looks constant, our variance could be constant as well, however the ACFs are clearly different. Let’s look at a different dataset:
data(lavon)
tplot(lavon) + ggthemes::theme_few()
ggsplitacf(lavon)
In this case, our mean looks maybe to be constant around 495, our variance does not appear to be constant, and our ACF looks pretty good, however I would say overall this probably is not stationary, due to the variance and slightly off ACF.