Learning standard deviation through R code