Standard Deviation Function In R Studio