R 从CI.AUC函数中提取CI值

我根据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-0.89

---

您需要在

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 = '-'))

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