R code (mode calculator).

mode

# author: ljsa @ cin.ufpe.br

# dataset = vector of numbers
mode = function (dataset) {
  dataset = sort(dataset);
  
  maxTam = 1;
  curTam = 0;
  counter = 2;
  lastMode = dataset[1];
  lastData = lastMode;
  
  
  md = c(lastMode);
  
  for (i in 2:length(dataset)) {
    data = dataset[i];
    if(data == lastMode){
      maxTam = maxTam + 1;
      
    } else if (data != lastMode){
      if (lastData != data){
        curTam = 0;
        lastData = data;
      }
      curTam = curTam + 1;
      if (curTam > maxTam){
        md = c(data);
        maxTam = curTam;
        curTam = 0;
        lastMode = data;
        
      } else if(curTam == maxTam){
        md = c(md, data);
        lastMode = data
        
      }
      
    }
    
  }
  return (md);
  
}