Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- moreThanOneModeData <- c(1,1,1,2,2,2,3,4,5,6,7,8)
- zeroModesData <- c(1,2,3,4,5,6)
- testData <- c(1,2,2,3,4,5,6)
- modeFunction <- function(x) {
- ux <- unique(x)
- tab <- tabulate(match(x, ux))
- result <- ux[tab == max(tab)]
- if (length(result) == 1) {
- return(result)
- } else {
- return("There is no single mode")
- }
- return(result)
- }
- modeFunction(moreThanOneModeData)
- modeFunction(zeroModesData)
- modeFunction(testData)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement