devloper13

mode<-function(v){
occur<-table(v)  #Creates a table with unique numbers as labels (ascending order) and occurrences in the first row.
boolean<-max(occur) == occur #max(v) extracts the maximum number from 'occur' and matches with the original set to give boolean values
value<-names(occur)[boolean] #Searches for label having 'TRUE'
return as.numeric(value) 
}