powered by
auc(x, y, decreasing=TRUE)
x <- rnorm(1000) # random scores for 1000 compounds y <- c(rep(1,50), rep(0,950)) # activity labels for "x" auc(x, y) data(dud_egfr) auc(dud_egfr[,1], dud_egfr[,2], decreasing=FALSE)
Run the code above in your browser using DataLab