Merge pull request #28 from spsanderson/development

update site

R/auto-rw30.R

@@ -18,9 +18,23 @@
 #' `num_steps`, `mu`, and `sd` are attached to the tibble.
 #'
 #' @examples
+#' library(ggplot2)
+#'
 #' # Generate random walks and print the result
 #' rw30()
 #'
+#' rw30() |>
+#'  ggplot(aes(x = x, y = y, color = walk_number, group = walk_number)) +
+#'  geom_line() +
+#'  theme_minimal() +
+#'  theme(legend.position = "none") +
+#'  labs(
+#'    title = "30 Random Walks",
+#'    x = "Step",
+#'    y = "Value",
+#'    color = "Walk Number"
+#'  )
+#'
 #' @name rw30
 NULL
 #' @rdname rw30

R/gen-brown-motion.R

@@ -32,8 +32,17 @@
 #' of class matrix will be returned.
 #'
 #' @examples
+#' library(ggplot2)
+#'
 #' brownian_motion()
 #'
+#' brownian_motion() |>
+#'   ggplot(aes(x = x, y = y, group = walk_number, color = walk_number)) +
+#'   geom_line() +
+#'   labs(title = "Brownian Motion", x = "Time", y = "Value") +
+#'   theme_minimal() +
+#'   theme(legend.position = "none")
+#'
 #' @return
 #' A tibble/matrix
 #'

R/gen-geom-brown-motion.R

@@ -43,8 +43,17 @@
 #' of class matrix will be returned.
 #'
 #' @examples
+#' library(ggplot2)
+#'
 #' geometric_brownian_motion()
 #'
+#' geometric_brownian_motion() |>
+#'   ggplot(aes(x = x, y = y, group = walk_number, color = walk_number)) +
+#'   geom_line() +
+#'   labs(title = "Geometric Brownian Motion", x = "Time", y = "Value") +
+#'   theme_minimal() +
+#'   theme(legend.position = "none")
+#'
 #' @return
 #' A tibble/matrix
 #'

R/gen-random-drift-walk.R

@@ -27,7 +27,7 @@
 #'
 #' walks <- random_normal_drift_walk(.num_walks = 10, .n = 50, .mu = 0, .sd = 1,
 #'                                   .drift = 0.05)
-#' ggplot(walks, ggplot2::aes(x = x, y = y, group = walk_number, color = walk_number)) +
+#' ggplot(walks, aes(x = x, y = y, group = walk_number, color = walk_number)) +
 #'   geom_line() +
 #'   labs(title = "Random Walks with Drift", x = "Time", y = "Value") +
 #'   theme_minimal() +

R/gen-random-normal-walk.R

@@ -48,6 +48,13 @@
 #' # Generate random walks with different mean and standard deviation
 #' random_normal_walk(.num_walks = 10, .n = 50, .samp = FALSE)
 #'
+#' random_normal_walk(.num_walks = 2, .n = 100) |>
+#'   ggplot(aes(x = x, y = y, group = walk_number, color = walk_number)) +
+#'   geom_line() +
+#'   labs(title = "Random Normal Walk", x = "Time", y = "Value") +
+#'   theme_minimal() +
+#'   theme(legend.position = "none")
+#'
 #' @name random_normal_walk
 NULL
 #' @rdname random_normal_walk