Sampling Error Explained using R