powered by
minP.adj.pvalue(p.0, size, defaultPattern)
mpa<-minP.adj.pvalue(p.0=c(0.001, 0.004), size=c(1000, 1000), defaultPattern=c(0, 0))
Run the code above in your browser using DataLab