Auxiliar function
sampler(n, a)
n
Number of sampling iterations
a
data vector
Resampled vector of length n
F. Barrio-Parra
a <- rnorm (n = 20, mean = 0, sd = 1) b <- sampler (n = 100, a = a)