R/print.isomap.R

`print.isomap` <-
function (x, ...) 
{
	cat("\nIsometric Feature Mapping (isomap)\n\n")
	cat("Call:\n")
	cat(deparse(x$call), "\n\n")
	cat("Distance method:", x$method, "\n")
	cat("Criterion:", x$criterion, "=", x$critval, "\n")
	if(!is.null(x$take))
	    cat("Data were fragmented, analysed", sum(x$take), "of", length(x$take), "points\n")
	invisible(x)
}

Try the vegan package in your browser

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

vegan documentation built on Sept. 11, 2024, 7:57 p.m.