solve.q: ~~function to do ... ~~ In mcp.project: Applies different False Discovery Rate controlling procedures

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

 `1` ```solve.q(sorted, m, j, r = 0) ```

Arguments

 `sorted` ~~Describe `sorted` here~~ `m` ~~Describe `m` here~~ `j` ~~Describe `j` here~~ `r` ~~Describe `r` here~~

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

 `comp1 ` Description of 'comp1' `comp2 ` Description of 'comp2'

...

Note

~~further notes~~

~Make other sections like Warning with Warning .... ~

~~who you are~~

References

~put references to the literature/web site here ~

~~objects to See Also as `help`, ~~~
 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18``` ```##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as function (sorted, m, j, r = 0) { a = sorted * (m - r)/(1:m) stopifnot(a > 0, j >= 1, j <= m, r >= 0, r <= m) adjusted = ifelse(a > 0.5, 1, a/(1 - a)) temp.min = adjusted[m] for (i in m:j) { if (adjusted[i] <= temp.min) temp.min = adjusted[i] else adjusted[i] = temp.min } return(adjusted) } ```