update site and fix minor errors

R/auto-rw30.R

@@ -80,7 +80,7 @@ rw30 <- function() {
   attr(walks_long, "mu") <- mu
   attr(walks_long, "sd") <- sd
   attr(walks_long, "fns") <- "rw30"
-  attr(res, "dimension")     <- 1
+  attr(walks_long, "dimension")     <- 1
 
   return(walks_long)
 }

R/gen-brown-motion.R

@@ -84,11 +84,11 @@ brownian_motion <- function(.num_walks = 10, .n = 100, .delta_time = 1,
   colnames(rand_matrix) <- 1:num_sims
 
   # Get the Brownian Motion and convert to price paths
-  ret <- apply(rbind(rep(initial_value, num_sims), rand_matrix), 2, cumsum)
+  res <- apply(rbind(rep(initial_value, num_sims), rand_matrix), 2, cumsum)
 
   # Return
   if (return_tibble){
-    ret <- ret |>
+    res <- res |>
       dplyr::as_tibble() |>
       dplyr::mutate(t = 1:(t+1)) |>
       tidyr::pivot_longer(-t) |>
@@ -99,13 +99,13 @@ brownian_motion <- function(.num_walks = 10, .n = 100, .delta_time = 1,
   }
 
   # Return ----
-  attr(ret, "n") <- .n
-  attr(ret, "num_walks") <- .num_walks
-  attr(ret, "delta_time") <- .delta_time
-  attr(ret, "initial_value") <- .initial_value
-  attr(ret, "return_tibble") <- .return_tibble
-  attr(ret, "fns") <- "brownian_motion"
+  attr(res, "n") <- .n
+  attr(res, "num_walks") <- .num_walks
+  attr(res, "delta_time") <- .delta_time
+  attr(res, "initial_value") <- .initial_value
+  attr(res, "return_tibble") <- .return_tibble
+  attr(res, "fns") <- "brownian_motion"
   attr(res, "dimension")     <- 1
 
-  return(ret)
+  return(res)
 }

R/gen-geom-brown-motion.R

@@ -106,7 +106,7 @@ geometric_brownian_motion <- function(.num_walks = 25, .n = 100,
 
   # Return
   if (return_tibble){
-    ret <- ret |>
+    res <- res |>
       dplyr::as_tibble() |>
       dplyr::mutate(t = 1:(t+1)) |>
       tidyr::pivot_longer(-t) |>
@@ -116,15 +116,15 @@ geometric_brownian_motion <- function(.num_walks = 25, .n = 100,
       dplyr::arrange(walk_number, x)
   }
 
-  attr(ret, "n") <- .n
-  attr(ret, "num_walks") <- .num_walks
-  attr(ret, "mean") <- .mu
-  attr(ret, "sigma") <- .sigma
-  attr(ret, "initial_value") <- .initial_value
-  attr(ret, "delta_time") <- .delta_time
-  attr(ret, "return_tibble") <- .return_tibble
-  attr(ret, "fns") <- "geometric_brownian_motion"
+  attr(res, "n") <- .n
+  attr(res, "num_walks") <- .num_walks
+  attr(res, "mean") <- .mu
+  attr(res, "sigma") <- .sigma
+  attr(res, "initial_value") <- .initial_value
+  attr(res, "delta_time") <- .delta_time
+  attr(res, "return_tibble") <- .return_tibble
+  attr(res, "fns") <- "geometric_brownian_motion"
   attr(res, "dimension")     <- 1
 
-  return(ret)
+  return(res)
 }

docs/pkgdown.yml

@@ -3,7 +3,7 @@ pkgdown: 2.1.0
 pkgdown_sha: ~
 articles:
   getting-started: getting-started.html
-last_built: 2024-07-19T21:36Z
+last_built: 2024-07-19T21:52Z
 urls:
   reference: https://www.spsanderson.com/RandomWalker/reference
   article: https://www.spsanderson.com/RandomWalker/articles