R/print.ancova.R

In WRS2: A Collection of Robust Statistical Methods

print.ancova <-
function(x,...)
{
  cat("Call:\n")
  print(x$call)
  cat("\n")
  
  if (names(x)[5] == "se") {
   df <- data.frame(x$n1, x$n2, x$trDiff, x$se, x$ci.low, x$ci.hi, x$test,  x$p.vals)
   rownames(df) <- paste(x$cnames[3], "=", x$evalpts)
   #colnames(df) <- c(paste("n:", x$faclevels[1]), paste("n:",x$faclevels[2]), "diff", "se", "lower CI", "upper CI", "statistic", "p-value")
   colnames(df) <- c("n1", "n2", "diff", "se", "lower CI", "upper CI", "statistic", "p-value")
  } else {
    df <- data.frame(x$n1, x$n2, x$trDiff, x$ci.low, x$ci.hi, x$test,  x$p.vals)
    rownames(df) <- paste(x$cnames[3], "=", x$evalpts)
    #colnames(df) <- c(paste("n:", x$faclevels[1]), paste("n:",x$faclevels[2]), "diff", "lower CI", "upper CI", "statistic", "p-value")
    colnames(df) <- c("n1", "n2", "diff", "lower CI", "upper CI", "statistic", "p-value")
  } 
  print(round(df, 4)) 
  cat("\n")
}