Generate a single pseudo-random number using the MLS Junk Generator algorithm

Based on user input seeds, this function generates a pseudo-random number. This is called by the mlsjunkgen package's other functions to generate a pseudo-random number stream.

junkgen(w, x, y, z)

Arguments

w	the first seed required by the MLS Junk Generator algorithm
x	the first seed required by the MLS Junk Generator algorithm
y	the first seed required by the MLS Junk Generator algorithm
z	the first seed required by the MLS Junk Generator algorithm

Value

A numeric vector containing a single pseudo-random number

Examples

# Generate a pseudo-random number with user-specified seeds

w <- 1
x <- 2
y <- 3
z <- 4
junkgen(w = w, x = x, y = y, z = z) # returns "[1] 0.9551644"
#> [1] 0.9551644