r - ROC 曲線をプロットし、特定のカットオフ情報で R の AUC を計算します

Question

このようなデータが与えられた場合: SN = 感度。SP = 特異性

Cutpoint        SN   1-SP
       1       0.5    0.1
       2       0.7    0.2
       3       0.9    0.6

ROC 曲線をプロットして AUC を計算するにはどうすればよいですか。そして、2 つの異なる ROC 曲線間で AUC を比較します。pROC や ROCR などのほとんどのパッケージでは、データの入力は上記のものとは異なります。Rまたは他の方法でこの問題を解決する方法を誰かが提案できますか?

ROCsdat <- data.frame(cutpoint = c(5, 7, 9), TPR = c(0.56, 0.78, 0.91), FPR = c(0.01, 0.19, 0.58))

## plot version 1
op <- par(xaxs = "i", yaxs = "i")
plot(TPR ~ FPR, data = dat, xlim = c(0,1), ylim = c(0,1), type = "n")
with(dat, lines(c(0, FPR, 1), c(0, TPR, 1), type = "o", pch = 25, bg = "black"))
text(TPR ~ FPR, data = dat, pos = 3, labels = dat$cutpoint)
abline(0, 1)
par(op)