Logistic回归的截止值为最大特异性和灵敏度

Question

我试图查看灵敏度和特异性最大的截止值。 但是，我的逻辑回归给出了概率的响应。我正在尝试下面的代码。

pred_Cutoff <- predict(GLM, newdata = testData,type = "response")
roc <- performance(pred_Cutoff,"tpr","fpr")
plot(roc,colorize=T)

显然，我无法比较概率和二进制值之间的性能。如果我指定将概率更改为二进制的阈值，则没有任何意义。我错过了什么吗？