R/hash.R

Defines functions rth.getseed hash96

hash96 <- function(a, b, c)
{
  .Call(c_R_mix_96, as.integer(a), as.integer(b), as.integer(c))
}

rth.getseed <- function()
{
  date <- as.integer(Sys.Date())
  time <- as.integer(Sys.time())
  pid <- as.integer(Sys.getpid())

  ret <- hash96(time, pid, date)
  ret <- as.integer(ret)

  return( ret )
}
matloff/Rth documentation built on May 21, 2019, 12:55 p.m.