Solucionado
Mode <- function(x) {
ux <- unique(x)
ux[which.max(tabulate(match(x, ux)))]
}eu insiro o codigo, dps faço o mode(), mas aparece o seguinte erro:Error in mode(1, 2, 2, 2, 2, 3, 3, 4, 5, 5, 6, 7) : unused arguments (2, 2, 2, 2, 3, 3, 4, 5, 5, 6, 7)
Olá Bruno, você precisa usar a função como definida. Ele acusa que existem argumentos que não estão sendo utilizados (unused arguments) ao chamar a função Veja que ela recebe apenas um argumento: funtion(x).
Então, declare seus dados primeiro e guarde em uma variável:
lista -> c(1, 2, 2, 2, 2, 3, 3, 4, 5, 5, 6, 7)E chame a função passando a lista:
lista -> c(1, 2, 2, 2, 2, 3, 3, 4, 5, 5, 6, 7)
resultado <- Mode(lista)Teste assim e veja se funciona
Opa, obrigado. Agora foi =)