powered by
Faster than inbuilt sample because it avoids some checks
SampleOne(x, len = length(x))
vector to sample
length of vector