R Function For Variance