multiple.down.adjust: function to do ...
In mcp.project: Applies different False Discovery Rate controlling procedures

Description Usage Arguments Details Value Note Author(s) References See Also Examples

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

1	multiple.down.adjust(sorted, m)

`sorted`	~~Describe `sorted` here~~
`m`	~~Describe `m` here~~

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

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

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

...

~~further notes~~

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

~~who you are~~

~put references to the literature/web site here ~

~~objects to See Also as help, ~~~

##---- 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) 
{
    cat("Calling multiple.down.ajust \n")
    flush.console
    adjusted = rep(NA, m)
    temp.max = sorted[1]
    max.ind = rep(0, m)
    for (i in 1:m) {
        temp = min(sorted[i] * (m + 1 - i)/(i * (1 - sorted[i])), 
            1)
        if (temp >= temp.max) {
            temp.max = temp
            max.ind[i] = 1
        }
        adjusted[i] = temp.max
    }
    cat("Exiting multiple.down.ajust \n")
    flush.console
    return(adjusted)
  }