```{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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.