# NOT RUN {
## An example showing that the Romano method is more conservative than the BHCLT method
## which is in turn more conservative than the BH-FDR method based upon ordering of the
## significant call proportions, R_m/m
## First find alpha.star for the BH-CLT method at level alpha=0.15
a.st.BHCLT <-controlFDP(effect.size=0.8,r.1=0.05,N.tests=1000,n.sample=70,alpha=0.15)$alpha.star
## now find the significant call fraction under the BH-FDR method at level alpha=0.15
gamma.BHFDR <- CDF.Pval.ua.eq.u(effect.size = 0.8, n.sample = 70, r.1 = 0.05, alpha=0.15)
## now find the significant call fraction under the Romano method at level alpha=0.15
gamma.romano <- CDF.Pval.ar.eq.u(effect.size = 0.8, n.sample = 70, r.1 = 0.05, alpha=0.15)
## now find the significant call fraction under the BH-CLT method at level alpha=0.15
gamma.BHCLT <- CDF.Pval.ua.eq.u(effect.size = 0.8, n.sample = 70, r.1 = 0.05, alpha=a.st.BHCLT)
# }
Run the code above in your browser using DataLab