powered by
scanFDR(fb, fdr, labels=names(fb$pvalues))
bumOptim
fitBumModel
data(pvaluesExample) pvals <- pvaluesExample[,1] bum <- bumOptim(pvals, starts=10) scores <- scanFDR(fb=bum, fdr=c(0.1, 0.001, 0.0001)) scores[1:10,]
Run the code above in your browser using DataLab