R/initMDS.R

"initMDS" <-
  function(x, k=2)
{
  nr <- attr(x, "Size")
  res <- runif(nr*k)
  dim(res) <- c(nr,k)
  res
}
vegandevs/vegan documentation built on Sept. 1, 2024, 8:22 p.m.