Create create_random_samples.Rscript