# Specific example of a random walk
walk <- c(0,1,0,-1,-2,-1,0,-1,0,1)
t <- 1:length(walk)
plot(t, walk, type="l", ylab="f(t)", xlab="time", lab=c(10,4,1),
     main="Random Walk Process for Bernoulli sample point HTTTHHTHH")