R/get_rng.R

In stanette: R Interface to Stan

Defines functions get_rng

Documented in get_rng

get_rng <- function(seed=0L) {
  if (!identical(seed, 0L)) {
    if (length(seed) != 1) 
      stop("Seed must be a length-1 integer vector.")
  }
  return(.Call('get_rng_', seed))
}

Try the stanette package in your browser