Skip to content

Instantly share code, notes, and snippets.

@MilesMcBain

MilesMcBain/simple_roc.R

Forked from revodavid/simple_roc.R
Created January 17, 2017 20:57
Show Gist options
  • Save MilesMcBain/8c3b3cbaa5ba7cc595d371bc1c416db6 to your computer and use it in GitHub Desktop.
Save MilesMcBain/8c3b3cbaa5ba7cc595d371bc1c416db6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
simple_roc.R
simple_roc <- function(labels, scores){
labels <- labels[order(scores, decreasing=TRUE)]
data.frame(TPR=cumsum(labels)/sum(labels), FPR=cumsum(!labels)/sum(!labels), labels)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment