Update SamplingDat.R

Adding code for calculating population size