Sampling Distribution - Rscript