r - 如何获得 R 中给定截止值的 auc、特异性和灵敏度？

Question

假设我有以下数据

set.seed(4)
ctt <- runif(50,0,10)
status <- rbinom(50,1,0.7) # 0 control, 1 patient

以及带有ctt >4.5arenormal (false positive)和ctt < 4.5are 的主题abnormal (false negative)。在这种情况下，我怎样才能获得 ROC 曲线auc, specifitiy和sensitivity？