Update SamplingDat.R