Standard Deviation Using Frequency Table In R