Javascript Standard Deviation Function In R