Mode Formula In R