R/print.epGraphs.R

In ExPosition: Exploratory Analysis with the Singular Value Decomposition

#' Print epGraphs results
#' 
#' @usage \method{print}{epGraphs}(x,\dots)
#' @param x an list that contains items to make into the epGraphs class.
#' @param \dots inherited/passed arguments for S3 print method(s).
#' @author Derek Beaton and Cherise Chin-Fatt
#' @seealso \code{\link{epGraphs}}
#' @keywords print
#' @export print.epGraphs
print.epGraphs <- function (x,...) {
	
  res.epGraphs <- x
  if (!inherits(res.epGraphs, "epGraphs")) stop ("no convenient data")
  cat("**ExPosition plotting data**\n")
  cat("*Contains the following objects:\n\n")
  res <- array("", c(5, 2), list(1:5, c("name", "description")))
  
  res[1,] <- c("$fi.col","The colors for the row items.")
  res[2,] <- c("$fi.pch","The pch values for the row items.")  
  res[3,] <- c("$fj.col","The colors for the column items.")
  res[4,] <- c("$fj.pch","The pch values for the column items.")  
  res[5,] <- c("$constraints","Plotting constraints for axes.")  
  
  print(res)

}