R Calculate Variance