summaryRM {biology} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
summaryRM(object, rm, ...)
object |
~~Describe object here~~ |
rm |
~~Describe rm here~~ |
... |
~~Describe ... 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 (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")) }