R/print.pcoasig.R

Defines functions print.pcoasig

Documented in print.pcoasig

#' @rdname pcoa.sig
#' @encoding UTF-8
#' @export
print.pcoasig <- function(x, ...){
	cat("Call:\n")
	cat(deparse(x$call), "\n\n")
	cat("PCoA values:\n")
	print(x$values)
	cat("\nProbabilities:\n")
	print(x$probabilities)
	invisible(x)
}
vanderleidebastiani/PCPS documentation built on Feb. 6, 2021, 9:22 p.m.