R scripts for STA 575 - Sampling