A função para MODA dada no exercício foi acatada pelo R e a lista sugerida foi salva com o nome "numeros". Quando coloco mode(numeros) ele retorna "numeric". Já digitei apenas numeros e ele me retorna a lista, ou seja, ela foi feita corretamente:
> numeros
[1] 1 2 2 2 2 3 3 4 5 5 6 7
A função salva foi:
Mode <- function(x) {
+ ux <- unique(x)
+ ux[which.max(tabulate(match(x, ux)))]