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

Question

假设我有以下数据

self.fetchAllTerminals = function() {
    console.log('Controller');
    AdminService.fetchAllTerminals()
    .then(function(data) {
        self.terminals = data;
    }, function(error) {
        console.error('Error while fetching Terminals');
    });
};

set.seed(4) ctt <- runif(50,0,10) status <- rbinom(50,1,0.7) # 0 control, 1 patient ctt >4.5和normal (false positive) ctt < 4.5的主题为abnormal (false negative)。在这种情况下，我如何获得ROC曲线以及auc, specifitiy和sensitivity？