How to do random sampling in R