Calculate The Mode In R