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.