如何从拟合逻辑 glm 计算灵敏度、特异性？

Question

我已经安装了logistic glm。现在我想计算灵敏度，特异性即真阳性率，假阳性率。

我可以使用 R 包

pROC

轻松计算

AUC

。因为，逻辑模型返回概率作为拟合值，为了计算 AUC，使用了一堆阈值（截止值）（我不知道有多少）。

但是，对于敏感性特异性，我认为只需要一个阈值。 那么我应该随机选择一个阈值并计算灵敏度，特异性吗？？？

或者有什么包可以返回它们的值吗？

这是一个示例代码，非常感谢任何帮助。

library(pROC)
set.seed(1)
x1=rnorm(50)
x2=rnorm(50)
y=rbinom(50,1)
dat=data.frame(y,x1,x2)
Model1=glm(y~.,family=binomial,data=dat)
Pred1=predict(Model1, newdata=dat, type="response")
Roc1=roc(dat$y, Pred1) #this gives roc
AUC1=auc(Roc1l) #this returns auc