This is an internal function that calculates the basic Storey (2002) estimator of a, the proportion of alternative hypotheses.
storey(edf.quantile, pvals)estimate of a, the number of alternative hypotheses
Other FDR:
fdr(),
fdr.master(),
fdrBasic(),
propAlt()