Fixed sampling in R solely