R/rand_walk.R

In AlissonRP/TestesJr: Pacote para testar as funções desenvolvidas no exercícios do curso de R ministrado para a SigmaJr

rand_walk = function(y0, N,n){
  y = c()
  y[1] = y0
  ym = NULL
  for (j in 1:N) {
    r = rnorm(n)
    for (i in 2:n){
    y[i] = y[i-1] + r[i]
    }
  ym[j] = mean(y)
  }
  return(mean(ym))
}