n <- 10
t <- 1
bm <- c(0, cumsum(rnorm(n, 0, sqrt(t/n))))
steps <- seq(0, t, length=n+1)
plot(steps, bm, type="l")