从ci.AUC函数中提取CI值

Question

我正在根据AUC预测来计算置信区间。我想提取CI值并粘贴CI: infront，但是，我的解决方案不起作用。

 data <- c(0, 0, 0, 1, 1, 0)
 pred <- c(1.05139877586338, 0.178798168643069, -3.69764655785213, 1.38607788593773, 
 -0.781109023131622, -1.85468845523379)

paste("CI:", round(ci.cvAUC(data,pred  = pred)$ci),2)

提供了以下内容：

"CI: 0.71" "CI: 0.89"

我想：

CI: 0.71-0.89

Answer 1

你需要ci.cvAUC周围的paste来将结果压缩成一个字符串。尝试：

paste("CI:", paste(round(ci.cvAUC(data,pred  = pred)$ci,2), collapse = '-'))

或者使用sprintf：

sprintf('CI: %s', paste(round(ci.cvAUC(data,pred  = pred)$ci,2), collapse = '-'))