add two files: Sampling.R fncs.R