R/meth_friedman.R

In CMHNPA: Cochran-Mantel-Haenszel and Nonparametric ANOVA

# Setting the CMH_C function output presentation

# setting class name and its representation as a list
setClass( "friedman_test", representation("list"))

# setting how the test will be presented
setMethod("show", "friedman_test", function(object) {
  cat("\n",sep = "")
  cat("       Friedman Rank Sum Test\n",sep = "")
  cat("\n",sep = "")
  cat("Groups information:\n")
  print(signif(object$rank_info, object$sig_digits))
  cat("\n",sep = "")
  print(signif(object$results_table,object$sig_digits),sep = "")
  cat("\n")
  cat("\n")
})