vignettes_src/mysources.R

random_walk <- function(x, n_steps) {
  ret <- numeric(n_steps)
  for (i in seq_len(n_steps)) {
    x <- rnorm(1, x)
    ret[[i]] <- x
  }
  ret
}
mrc-ide/didehpc documentation built on Aug. 20, 2023, 10:27 a.m.