boot.ci() 无法计算 F1 分数的置信区间

Question

我正在尝试使用 R 中的启动包计算 F1 分数的置信区间。但它似乎不起作用，我不确定为什么。

library(MLmetrics)
fci<-function(data,indices,x,y){
   d<-data[indices,]
   r<-F1_Score(x,y)
   r
}
set.seed(12345)
bootout<-boot(data=test,
              x=test$jbz,
              y=test$`DR_ai+jd`,
              R=2000,
              statistic=fci
              )
boot.ci(bootout)

错误：

[1] "All values of t are equal to  0.996637873066777 \n Cannot calculate confidence intervals"
NULL

Answer 1

library(MLmetrics)
library(boot)
set.seed(12345)
fci<-function(data,indices,x,y){
   d<-as.data.frame(data[indices,])
   r<-F1_Score(d[,1],d[,2],positive=1)
   r
}

bootout<-boot(data=test,
              x=test$jbz,
              y=test$`DR_ai+jd`,
              R=2000,
              statistic=fci
              )
boot.ci(bootout,type="basic")
F1_Score(y_true = test$jbz, y_pred = test$`DR_ai+jd`,positive="1")

这个效果不错~~

boot.ci() 无法计算 F1 分数的置信区间

boot.ci() can't compute confidence intervals for F1 score

statistics-bootstrap