\begin{Schunk}
\begin{Sinput}
 RNGkind ("Mersenne-Twister")
 set.seed(12345)
 invisible(rgamma(1, shape = 1)); v1 <- .Random.seed[1:4]
 invisible(rgamma(1, shape = 1)); v2 <- .Random.seed[1:4]
 invisible(rgamma(1, shape = 1)); v3 <- .Random.seed[1:4]
 invisible(rgamma(1, shape = 1)); v4 <- .Random.seed[1:4]
 invisible(rgamma(1, shape = 1)); v5 <- .Random.seed[1:4]
 invisible(rgamma(1, shape = 1)); v6 <- .Random.seed[1:4]
 cbind(v1, v2, v3, v4, v5, v6)
\end{Sinput}
\begin{Soutput}
              v1          v2          v3          v4          v5          v6
[1,]         403         403         403         403         403         403
[2,]           2           4           7           9          11          16
[3,] -1346850345 -1346850345 -1346850345 -1346850345 -1346850345 -1346850345
[4,]   656028621   656028621   656028621   656028621   656028621   656028621
\end{Soutput}
\end{Schunk}
