Abundo sobre mi entrada del otro día. Usando números aleatorios hirsutos,
n <- 200 x <- runif(n) plot(cumsum(x - .5), type = "l")
produce

mientras que
library(randtoolbox) s <- sobol(n, 1, scrambling = 3) plot(cumsum(s - .5), type = "l")
genera

que tiene un cariz totalmente distinto.