This is an internal function that calculates the basic Storey (2002) estimator of a, the proportion of alternative hypotheses.

`storey(edf.quantile, pvals)`

- edf.quantile
(required): the quantile of the empirical distribution function at which to estimate a

- pvals
(required): a vector of pvals on which to conduct the multiple testing

estimate of a, the number of alternative hypotheses

Other FDR:
`fdr.master()`

,
`fdrBasic()`

,
`fdr()`

,
`propAlt()`