使用混淆矩阵找到截止值？

Question

n<-1 
a<-as.vector(length(s))
for (i in s ) {

  print(i)
  test$result<-ifelse(test$pred>i,1,0)
  a[n]<-confusionMatrix(test$result,test$churn,positive = "1")$overall[2]

  print(n)
  n=n+1
}
max(a)

如果我运行代码，我如何获得上述范围之间的阈值，我得到这个错误

错误：$<-.data.frame(*tmp*, "result", value = logical(0)) ： 替换有0行，数据有3892

Answer 1

试试test$result[[i]]<-ifelse(test$pred[[i]]>i,1,0)。我认为这就是您收到该错误的原因，但我无法重现该错误