R/print.summarypcoasig.R

In vanderleidebastiani/PCPS: Principal Coordinates of Phylogenetic Structure

#' @rdname pcoa.sig
#' @encoding UTF-8
#' @export
print.summarypcoasig<-function(x, ...){
  cat("Call:\n")
  cat(deparse(x$call), "\n\n")
  cat("\n$values:\n")
  print(as.matrix(x$values), ...)
  cat("\n$vectors:\n")
  print(as.matrix(x$vectors), ...)
  cat("\n$correlations:\n")
  print(as.matrix(x$correlations), ...)
  cat("\n$probabilities:\n")
  print(as.matrix(x$probabilities), ...)
  invisible(x)
}