Mode

• Statistical simulation of the Mode with R-Project
  

  > x <- c(rep(47,1),rep(48,3),rep(49,2),rep(50,8),rep(51,3),rep(52,2)
  ,rep(53,1));
  
  > abs(sort(table(x)))
  x
  47 53 49 52 48 51 50 
   1  1  2  2  3  3  8
  

  
  
  
  

• Statistical simulation of the Mode with Mathematica
  

  x := Join[ConstantArray[47, 1], ConstantArray[48, 3], 
     ConstantArray[49, 2], ConstantArray[50, 8], ConstantArray[51, 3], 
     ConstantArray[52, 2], ConstantArray[53, 1]];
     
  Commonest[x]
  
  {50}