Mode <- function (v)
{
	max <- 0;
	for (val in unique (v))
	{
		count <- length (v[v==val]);
		if (count > max)
		{
			max <- count;
			m <- val; 
		}
		else if (count == max)
		{
			max <- count;
			m <- c(m,val);
		}	
	}
	return (m);
}