Calculating Variance In R