make some changes to two files: Sampling.R fncs.R