Найти значение отсечения с помощью матрицы путаницы?

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*, "результат",значение = логическое (0)): в замене 0 строк, в данных 3892

Answer 1

Попробуйте test$result[[i]]<-ifelse(test$pred[[i]]>i,1,0).Я думаю, именно поэтому вы получаете эту ошибку, но я не могу воспроизвести ошибку