R/seed.R

Defines functions get_seed

#' @export
get_seed <- function(){
  seed <- as.integer(Sys.time())

  function(){
    seed <<- seed + 1
    if (seed > .Machine$integer.max) seed <<- 0
    return(seed)
  }
}
hayate0304/Rsymbulate documentation built on May 17, 2019, 8:20 a.m.