R/print.hotelling.test.R

In santiagobarreda/phonTools: Tools for Phonetic and Acoustic Analyses

#' @export

print.hotelling.test = function (x, ...){

  if (x$samples == 1){
    cat ('\nHotelling\'s One-Sample T2-test\n')
    cat ('Alternative hypothesis: Means are not all equal to zero.\n\n')
  }
  if (x$samples == 2){
    cat ('\nHotelling\'s Two-Sample T2-test\n')
    cat ('Alternative hypothesis: Group means are not all equal.\n\n')
  }

  cat ('f = ', x$f.value, ', df1 = ', x$df1, ', df2 = ', x$df2,', p.value = ', x$p.value, '\n\n')
}