summary.fdr: 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	summary(fdr)

fdr

~~Describe fdr 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 (fdr) 
{
    r = sum(fdr$Pvals[["rejected"]])
    m = length(fdr$Pvals[["rejected"]])
    cat("There were", r, "rejections out of", m, "hypothsis tested which are", 
        r/m, "percent \n")
    cat("Using method", fdr$method, "at FDR level of", fdr$q, 
        "\n")
  }