R/print.corres.R

Defines functions `print.corres`

`print.corres` <-
function(x, ...) {

	if (!is(x, "corres")) stop("argument should be a correspondence object")

	cat(paste("\nCall:\ncorres(", x@data$inputName, ")\n\n", sep=""))
    cat("\nEigenvalues (trivial first eigenvalue removed):\n\n")
    cat("    ", x@data$eigenvals, "\n\n")
    cat("Eigenvalue rate, in thousandths:\n\n")
    cat("    ", x@data$eigenrates, "\n\n")

	# print(x@data, quote=F)
	invisible(x)
}

Try the languageR package in your browser

Any scripts or data that you put into this service are public.

languageR documentation built on May 2, 2019, 10:02 a.m.