Eu estou tentando a muito tempo, já abri e fechei o R varias vezes mas sempre a mesma coisa, ou da erro de sintaxe ou da "numeric", o que eu faço
Mode <- function(x) {
ux <- unique(x)
ux[which.max(tabulate(match(x, ux)))]
} mode(1, 2, 2, 2, 2, 3, 3, 4, 5, 5, 6, 7)PS: eu já tentei usar mode(c(1, 2, 2, 2, 2, 3, 3, 4, 5, 5, 6, 7)), mas não funcionou, também não funcionou colocar Mode com M maiúsculo, também não funcionou assim:
N1 <- c(1, 2, 2, 2, 2, 3, 3, 4, 5, 5, 6, 7)
Mode <- function(x) {
ux <- unique(x)
ux[which.max(tabulate(match(x, ux)))]
} mode(N1)
