muutused= rnorm(20, 0, 40)
plot(muutused)
par(mfrow=c(2, 1))
barplot(muutused)
plot(cumsum(muutused), type="l")
par(mfrow=c(1, 1))

#cumsum(muutused)#Iga element näitab algse kogumi elementide summat kuni niimitmenda elemendini

ridu=3
veerge=4
par(mfrow=c(ridu, veerge))
for(i in 1:(ridu*veerge))plot(cumsum(rnorm(20, 0, 40)), 
                           type="l", ylim=c(-300, 300), ylab="", xlab="samm")
par(mfrow=c(1, 1)), 


filter(muutused, 1, method="recursive", init=0)

sapply(1:10, function(kord){
   muutused=rnorm(20, 0, 40)
   cumsum(muutused)[[length(muutused)]]
})
#Kümnel korral asukoht, kuhu jõuti pärast kahtkümmet sammu