Function For Standard Deviation In R