R/randSeed.R

In kelvinyangli/mbmml: Learn Markov blankets using Minimum Message Length

#' Random seek generator
#'
#' This function genrates random seed from computer's lower clock digits.
#' @export
randSeed = function() {
  op = options(digits.secs = 6)
  x = gsub("[: -]", "" , Sys.time(), perl = TRUE) # remove - and : 
  x = strsplit(x, split = "[.]")[[1]][2] # get lower digits
  x = as.numeric(x) # convert char to numeric 
  return(x)
}