How To Calculate The Mode In R