Bunu yapmanın muhtemelen birçok yolu vardır, ancak ilk akla gelen, doğrusal regresyona dayanır. Ardışık kalıntıları birbirlerine karşı gerilebilir ve kayda değer bir eğimi test edebilirsiniz. Otomatik korelasyon varsa, ardışık kalanlar arasında doğrusal bir ilişki olması gerekir. Yazdığınız kodu bitirmek için şunları yapabilirsiniz:
mod = lm(prices[,1] ~ prices[,2])
res = mod$res
n = length(res)
mod2 = lm(res[-n] ~ res[-1])
summary(mod2)
mod2 zaman bir lineer regresyon hatası, , zaman karşısında hata, . res [-1] katsayısı önemliyse, artıklarda kendi kendine korelasyon kanıtınız olur.ε t t - 1 ε t - 1tεtt - 1εt - 1
Not: Bu, artıkların, tahmini yaparken yalnızca in önemli olduğu anlamında otoregresif olduğunu varsaymaktadır . Gerçekte, daha uzun menzilli bağımlılıklar olabilir. Bu durumda, tarif ettiğim bu yöntem içindeki gerçek otokorelasyon yapısına tek gecikmeli otoregresif yaklaşım olarak yorumlanmalıdır . ε t εεt - 1εtε
acf()
), ancak bu basit gözle görülebilecek olanı doğrular: gecikmeli artıklar arasındaki korelasyonlar çok yüksektir.