R/print.summary.isomap.R

`print.summary.isomap` <-
function (x, ...) 
{
	cat("\nCall:\n")
	cat(deparse(x$call), "\n\n")
	cat("Points:\n")
	print(x$points, ...)
	cat("\nRetained dissimilarities between points:\n")
	print(t(x$net), ...)
	cat("\nRetained", x$nnet, "of", x$ndis, "dissimilarities\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 May 2, 2019, 5:51 p.m.