Jawaban:
(Saya menulis ini sebagai jawaban untuk posting lain, yang ditandai sebagai duplikat dari yang ini ketika saya sedang menyusunnya; saya pikir saya akan mempostingnya di sini daripada membuangnya. Sepertinya itu mengatakan hal-hal yang mirip dengan whuber's jawab tetapi cukup berbeda bahwa seseorang mungkin mendapatkan sesuatu dari yang ini.)
Sebuah random walk adalah dari bentuk
Berikut adalah R
kode yang menghasilkan gambar.
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)))