acharModa = function(vector) {
   za <- table(as.vector(vector))
   names(za)[za == max(za)]
}