R/print.epCA.inference.battery.R

In InPosition: Inference Tests for ExPosition

print.epCA.inference.battery <-
function (x,...) {

  res.epCA.inference.battery <- x
  if (!inherits(res.epCA.inference.battery, "epCA.inference.battery")) stop ("no convenient data")
  cat("**Results for Correspondence Analysis Inference Battery**\n")
  cat ("Permutation was performed on ", ncol(res.epCA.inference.battery$components$eigs.perm),
       "components and bootstrap performed on ", nrow(res.epCA.inference.battery$fj.boots$tests$boot.ratios), " variables\n")
  cat("*The results are available in the following objects:\n\n")
  res <- array("", c(3, 2), list(1:3, c("name", "description")))
  
  res[1,] <- c("$components","p-values ($p.vals) and permutations ($eigs.perm) for each component.")
  res[2,] <- c("$fj.boots","A list with bootstrap data and tests.")
  res[3,] <- c("$omni","Omnibus test of inertia: p-value ($p.val) and permuted inertia ($inertia.perm).")     
  
  print(res)
}