R/print.AovSum.R

In husson/FactoMineR: Multivariate Exploratory Data Analysis and Data Mining

Defines functions print.AovSum

Documented in print.AovSum

print.AovSum<-function(x, ...){
  if (!inherits(x, "AovSum")) 
    stop("need to be a AovSum object")
  cat("Ftest\n")
  print(x$Ftest)
  x$Ttest[,4]<-round(x$Ttest[,4],5)
  cat("\nTtest\n")
  printCoefmat(x$Ttest)
}