R/get_rng.R

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 rstan package in your browser

Any scripts or data that you put into this service are public.

rstan documentation built on May 29, 2024, 11:04 a.m.