回答:
(私はこれを、作成中にこの投稿の複製としてマークされた別の投稿への回答として書いた。私はそれを捨てるのではなく、ここに投稿することを考えた。それはwhuberのそれと非常に類似したことを言っているようだ答えですが、誰かがこれから何かを得ることができるほど十分に異なっています。)
ランダムウォークは、の形式です。
ことに注意してください
したがって、。
も注意してください
したがって、。
つまり、が大きくなり始めるとすぐに、とはほぼ同じになるため、それらの間の相関差はかなり小さくなる傾向があります。y t y t − 1
とプロットすることで、これを最も簡単に確認できます。y t − 1
やや直感的にそれを見ることができますがドリフトしたと想像してください(標準の正規ノイズ項を使用したランダムウォークのシミュレーションで確認したように)。そうすると、はかなり近くなります。それはまたはかもしれませんが、数単位以内であることはほぼ確実です。シリーズは上下ドリフトように、プロット対、ほぼ常に、かなり狭い範囲内に維持しようとしている線...未だ点を成長大きくをカバーすると沿って大きく伸びる - 20 Y T - 20 - 22 - 18.5 - 20 Y 、T 、Y T - 1、Y = X のT Y = X √ライン(ラインに沿った広がりはで増加しますが、垂直方向の広がりはほぼ一定のままです)。相関は1に近づく必要があります。
前の質問の文脈では、「ランダムウォーク」は1つの実現です
1 − 4 / n
これR
が画像を生成したコードです。
set.seed(17)
n <- 1e3
x <- cumsum((runif(n) <= 1/2)*2-1) # Binomial random walk at x_0=0
rho <- format(cor(x[-1], x[-n]), digits=3) # Lag-1 correlation
par(mfrow=c(1,2))
plot(x, type="l", col="#e0e0e0", main="Sample Path")
points(x, pch=16, cex=0.75, col=hsv(1:n/n, .8, .8, .2))
plot(x[-n], x[-1], asp=1, pch=16, col=hsv(1:n/n, .8, .8, .2),
main="Lag-1 Scatterplot",
xlab="Current value", ylab="Next value")
mtext(bquote(rho == .(rho)))