R/roc.R

Defines functions roc

roc<-function(labels, scores){
  labels <- labels[order(scores, decreasing=TRUE)]
  data.frame(TPR=cumsum(labels)/sum(labels), 
             FPR=cumsum(!labels)/sum(!labels),
             labels,
             reference=sort(scores))}
laurieKell/mydas-pkg documentation built on Nov. 8, 2019, 10:58 p.m.