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