提取用于计算R中ROC的阈值或截止水平（`Epi`）

在中有提取这些值的解决方案，但我不知道如何对

Epi

包进行同样的操作

下面是我正在尝试的示例：

library(pROC)
library(Epi)
data(aSAH)
ROC(form = outcome ~ s100b, data=aSAH, plot = "ROC", MX = T)

我尝试了以下方法：

    rc <- ROC(form = outcome ~ s100b, data=aSAH, plot="sp" )
    rc$lr$weights
    str(rc$lr$weights)
 Named num [1:113] 0.185 0.19 0.171 0.143 0.185 ...
 - attr(*, "names")= chr [1:113] "29" "30" "31" "32" ..

---

rc那么为什么不使用ROCR或pROC呢？他们是否遗漏了其他内容？我正在试图找出我为
lr.eta
手动计算的预测变量值是否与R用于计算Epi包内ROC的阈值之一相对应。你可以看到我的手工计算。