código R

function() {
    set.seed(123)  # Para reprodutibilidade
    n <- 100  # Número de passos
    passos <- cumsum(rnorm(n))  # Passeio aleatório
    data.frame(Passo = 1:n, Valor = passos)  # Retornar como dataframe
}
PassoValor
1-0.561
2-0.791
30.768
40.839
50.968
62.683
73.144
81.879
91.192
100.746
111.97
122.33
132.731
142.842
152.286
164.073
174.571
182.604
193.305
202.833
211.765
221.547
230.521