# A specific random walk to show new starting time
walk <- c(0,-1,-2,-1,-2,-1,-2,-3)
t <- 0:(length(walk)-1)
plot(t, walk, ylab="position", xlab="time", type="l")
axis <- (-2:10*length(walk))/10
points(axis, rep(-1,length(axis)), pch=".")