## An example showing that the Romano method is more conservative than the BHFDX 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.BHFDX <-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.au.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.apsi.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.BHFDX <- CDF.Pval.au.eq.u(effect.size = 0.8, n.sample = 70, r.1 = 0.05, alpha=a.st.BHFDX)
Run the code above in your browser using DataLab