Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- x <- c(3,1,4,6,5,2,9,7,8,0)
- mode(x)
- Mode <- function(x) {
- ux <- unique(x)
- ux[which.max(tabulate(match(x, ux)))]
- }
- Mode(x)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement