ApplyRandomSeed: umbrella::ApplyRandomSeed()

In ultraviolet-1986/umbrella: Umbrella: A Biased Generic Random Walk Algorithm for Community Detection

Usage

ApplyRandomSeed()

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function ()
{
    if (exists(".Random.seed")) {
        rm(.Random.seed, envir = globalenv())
    }
    random_seed <- sample(1:1e+06, 1, replace = FALSE)
    set.seed(random_seed)
    print(paste("NOTE: Random seed", random_seed, "has been applied."))
  }

ultraviolet-1986/umbrella documentation built on July 20, 2020, 9:02 p.m.