```{R fig.width = 6} brownianMotion <- sbmotion(scale = 1000) ggplot2::ggplot(brownianMotion, ggplot2::aes(time_periods, brownian_motion_path)) + ggplot2::geom_point(alpha = 1/4, size = 0.5)

Thank to `set.seed()` fixed we can get a reproducible Brownian Motion.

```{R fig.width = 6}
brownianMotion <- sbmotion(scale = 1000)
ggplot2::ggplot(brownianMotion, ggplot2::aes(time_periods, brownian_motion_path)) +
  ggplot2::geom_point(alpha = 1/4, size = 0.5)


AnthonyTedde/RandomWalk documentation built on Dec. 13, 2021, 11:02 p.m.