R/initMDS.R

"initMDS" <-
  function(x, k=2)
{
  nr <- attr(x, "Size")
  res <- runif(nr*k)
  dim(res) <- c(nr,k)
  res
}

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.