Merge pull request #58 from spsanderson/development

Development
spsanderson · Aug 1, 2024 · f22f0bb · f22f0bb
2 parents 8f461fc + d12644a
commit f22f0bb
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/R/00_global_variables.R b/R/00_global_variables.R
@@ -1,5 +1,5 @@
 globalVariables(
   names = c(
-    "walk_number","x","y","value","name"
+    "walk_number","x","y","value","name", "cum_sum","cum_prod"
   )
 )
diff --git a/R/gen-brown-motion-geometric.R b/R/gen-brown-motion-geometric.R
@@ -131,7 +131,9 @@ geometric_brownian_motion <- function(.num_walks = 25, .n = 100,
       dplyr::select(name, t, value) |>
       purrr::set_names("walk_number", "x", "y") |>
       dplyr::mutate(walk_number = factor(walk_number, levels = 1:num_sims)) |>
-      dplyr::arrange(walk_number, x)
+      dplyr::arrange(walk_number, x) |>
+      rand_walk_helper(.value = initial_value) |>
+      dplyr::select(-cum_sum, -cum_prod)
   }
 
   attr(res, "n") <- .n

diff --git a/R/gen-brown-motion.R b/R/gen-brown-motion.R
@@ -113,7 +113,9 @@ brownian_motion <- function(.num_walks = 25, .n = 100, .delta_time = 1,
       dplyr::select(name, t, value) |>
       purrr::set_names("walk_number", "x", "y") |>
       dplyr::mutate(walk_number = factor(walk_number, levels = 1:num_sims)) |>
-      dplyr::arrange(walk_number, x)
+      dplyr::arrange(walk_number, x) |>
+      rand_walk_helper(.value = initial_value) |>
+      dplyr::select(-cum_sum, -cum_prod)
   }
 
   # Return ----