有没有办法可以对我的模型预测进行投票功能？

Question

我正在为我的预测做一个投票功能，我将多类原因安排到一个数据框中（类似于下面）。但是，我不能为每一行做多数投票，答案是NA。

试图使用Apply（），majorityvote（）

t<-c(3,4,5,6,7,4,4,5,4)
y<-c(3,4,5,6,4,4,4,4,4)
z<-c(3,4,5,6,7,4,4,5,4)
o<-data.frame(t,y,z)

Mode <- function(x) {
ux <- unique(x)
ux[names(which.max(table(x)))]
}
apply(o, 1, Mode)

Answer 1

一种方法如下：

#setting up model function
mode <- function(x){ 
  ta = table(x)
  tam = max(ta)
  mod = as.numeric(names(ta)[ta == tam])
  mod = mod[1] 
  return(mod)
}

t <-c(3,4,5,6,7,4,4,5,4)
y <-c(3,4,5,6,4,4,4,4,4)
z <-c(3,4,5,6,7,4,4,5,4)
o <-data.frame(t,y,z)


apply(o, 1, mode)