Question

我正在为我的预测执行投票功能，并将多类原因安排到一个数据框中（类似于下面的内容）。但是，我无法对每一行都进行多数表决，答案是不适用。

试图使用Apply（），多数投票（）

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)

有什么方法可以对模型预测进行表决吗？

1 个答案: