~~function to do ... ~~

Description

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

Usage

summaryRM(object, rm, ...)

Arguments

Details

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

Value

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

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

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

Examples

##---- 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 (object, rm, ...) 
{
    sum <- object
    eps <- epsi.GG.HF_old(rm)
    eps.GG <- eps[1]
    eps.HF <- eps[2]
    term.length <- length(sum[[2]][[1]]$Df)
    dfsG <- sum[[2]][[1]]$Df * eps.GG
    dfsH <- sum[[2]][[1]]$Df * eps.HF
    GG.p <- 1 - pf(sum[[2]][[1]]$"F value", dfsG, dfsG[term.length])
    HF.p <- 1 - pf(sum[[2]][[1]]$"F value", dfsH, dfsH[term.length])
    sum[[2]][[1]]$GG.P <- GG.p
    sum[[2]][[1]]$HF.P <- HF.p
    print(sum, digits = 5)
    cat(paste("\n", "GG epsilon: ", format(eps.GG, digits = 7), 
        "\n", sep = ""))
    cat(paste("HF epsilon: ", format(eps.HF, digits = 7), "\n"))
  }