Update SamplingDat.R

Adding population size