Rstudio Variance Function