Update SamplingDat.R

Add code