Antworten:
(Ich schrieb dies als Antwort auf einen anderen Beitrag, der während des Komponierens als Duplikat dieses Beitrags markiert wurde. Ich dachte, ich würde ihn hier posten, anstatt ihn wegzuwerfen. Es sieht so aus, als ob er ganz ähnliche Dinge wie Whubers sagt antworte, aber es ist gerade anders genug, dass jemand etwas aus diesem herausholen könnte.)
Ein zufälliger Spaziergang hat die Form
Man beachte, dass
Hier ist der R
Code, der die Bilder erzeugt hat.
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)))