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 )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.