R/summary.isomap.R

`summary.isomap` <-
function (object, axes=4, ...) 
{
	axes <- min(axes, ncol(object$points))
	out <- list()
	out$call <- object$call
	out$points <- object$points[,1:axes]
	out$net <- object$net
	n <- nrow(object$points)
	out$ndis <- n * (n-1) / 2
	out$nnet <- nrow(object$net)
	class(out) <- "summary.isomap"
	out
}

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.