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