Displaying 1 result from an estimated 1 matches for "midrank".
Did you mean:
medrano
2013 Mar 02
3
print method like print.anova()
...unction(x, digits = max(getOption("digits") - 2, 3),
...) {
heading <- "Cochran-Mantel-Haenszel Statistics"
if (!is.null(x$names)) heading <- paste(heading, "for",
paste(x$names, collapse=" by "))
# TODO: determine score types (integer, midrank) for heading
df <- x$table
types <- rownames(df)
labels <- list(cor="Nonzero correlation", rmeans="Row mean scores
differ",
cmeans="Col mean scores differ", general="General association")
df <-
data.frame("...