R/utility_functions.R

Defines functions summary.rankMANOVA print.rankMANOVA

#' @export
print.rankMANOVA <- function(x, ...) {
  a <- x$input
  cat("Call:", "\n")
  print(a$formula)
  cat("\n", "Test:", "\n", sep = "")
  print(x$Test)
}

#' @export
summary.rankMANOVA <- function (object, ...) {
  a <- object$input
  cat("Call:", "\n")
  print(a$formula)
  cat("\n", "Descriptive:", "\n", sep = "")
  print(object$Descriptive)
  cat("\n", "Test:", "\n", sep = "")
  print(object$Test)
}
smn74/rankMANOVA documentation built on Nov. 8, 2018, 4:18 a.m.