R Program to Sample from a Population

> # sample with replacement
> sample(x, replace = TRUE)
[1] 15 17 13  9  5 15 11 15  1
> # if we simply pass in a positive number n, it will sample
> # from 1:n without replacement
> sample(10)
[1]  2  4  7  9  1  3 10  5  8  6