# NOT RUN {
set.seed(9992722)
pvals=runif(5e4)^1.5 ## simulate some fake 'p-values'
library(qvalue)
qvalObj=qvalue(pvals) ## warning: this may be slow!
fdrObj=fdr(pvals,qvalObj$pi0)
all.equal(fdrObj,qvalObj$qval) ## should be TRUE
# }
Run the code above in your browser using DataLab