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)
Erro: unexpected symbol in:
" ux[which.max(tabulate(match(x, ux)))]
}mode"
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)
Erro: unexpected symbol in:
" ux[which.max(tabulate(match(x, ux)))]
}mode"
Oi joão, tudo bom?
Acho que o problema esta nas duas funções em sequencia:
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)Causa o mesmo erro. Outra coisa, a função Mode deve ser chamada com o m maiusculo e deve ser passado uma coleção de numeros criada anteriormente. Tenta algo como:
numeros <- c(1, 2,2,3,3 3, 4, 5)
// envia
Mode <- function(x) {
ux <- unique(x)
ux[which.max(tabulate(match(x, ux)))]
}
// envia
Mode(numeros)
// enviaO resultado deve ser 3 =)
Abraço