# Multiplicative Congruential Generators in R

(This article was first published on R – Aaron Schlegel, and kindly contributed to R-bloggers)
Part 2 of 2 in the series Random Number Generation

Multiplicative congruential generators, also known as Lehmer random number generators, is a type of linear congruential generator for generating pseudorandom numbers in . The multiplicative congruential generator, often abbreviated as MLCG or MCG, is defined as a recurrence relation similar to the LCG with $c = 0$.

$large{X_{i+1} = aX_i space text{mod} space m}$

Unlike the LCG, the parameters $a$ and $m$ for multiplicative congruential generators are more restricted and the initial seed $X_0$ must be relatively prime to the modulus $m$ (the greatest common divisor between $X_0$ and $m$ is $0$). The current parameters in common use are $m = 2^{31} - 1 = 2,147,483,647 text{and} a = 7^5 = 16,807$. However, in a correspondence from the Communications of the ACM, Park, Miller and Stockmeyer changed the value of the parameter $a$, stating:

The minimal standard Lehmer generator we advocated had a modulus of m = 2^31 – 1 and a multiplier of a = 16807. Relative to this particular choice of multiplier, we wrote “… if this paper were to be written again in a few years it is quite possible that we would advocate a different multiplier ….” We are now prepared to do so. That is, we now advocate a = 48271 and, indeed, have done so “officially” since July 1990. This new advocacy is consistent with the discussion on page 1198 of [10]. There is nothing wrong with 16807; we now believe, however, that 48271 is a little better (with q = 44488, r = 3399).

###### Multiplicative Congruential Generators with Schrage’s Method

When using a large prime modulus $m$ such as $2^{31} - 1$, the multiplicative congruential generator can overflow. Schrage’s method was invented to overcome the possibility of overflow. We can check the parameters in use satisfy this condition:

```a
Schrage's method restates the modulus $m$ as a decomposition $m = aq + r$ where $r = m space text{mod} space a$ and $q = m / a$.
$ax space text{mod} space m = begin{cases} a(x space text{mod} space q) - rfrac{x}{q} & text{if} space x space text{is} geq 0 a(x space text{mod} space q) - rfrac{x}{q} + m & text{if} space x space text{is} leq 0 end{cases}$Multiplicative Congruential Generator in R
We can implement a Lehmer random number generator in R using the parameters mentioned earlier.
```
```lehmer.rng
```
```# Print the first 10 randomly generated numbers
lehmer.rng()
##  [1] 0.68635675 0.12657390 0.84869106 0.16614698 0.08108171 0.89533896
##  [7] 0.90708773 0.03195725 0.60847522 0.70736551
```

Plotting our multiplicative congruential generator in three dimensions allows us to visualize the apparent ‘randomness’ of the generator. As before, we generate three random vectors $x, y, z$ with our Lehmer RNG function and plot the points. The plot3d package is used to create the scatterplot and the animation package is used to animate each scatterplot as the length of the random vectors, $n$, increases.

```library(plot3D)
library(animation)
```
```n

The generator appears to be generating suitably random numbers demonstrated by the increasing swarm of points as $n$ increases.
References
Anne Gille-Genest (March 1, 2012). Implementation of the Pseudo-Random Number Generators and the Low Discrepancy Sequences.
Saucier, R. (2000). Computer Generation of Statistical Distributions (1st ed.). Aberdeen, MD. Army Research Lab.
Stephen K. Park; Keith W. Miller; Paul K. Stockmeyer (1988). “Technical Correspondence”. Communications of the ACM. 36 (7): 105–110.
The post Multiplicative Congruential Generators in R appeared first on Aaron Schlegel.