R/print.envfit.R

"print.envfit" <-
  function(x, ...)
{
  if (!is.null(x$vectors)) {
    cat("\n***VECTORS\n\n")
    print(x$vectors)
  }
  if (!is.null(x$factors)) {
    cat("\n***FACTORS:\n\n")
    print(x$factors)
  }
  if (!is.null(x$na.action))
      cat("\n", naprint(x$na.action), "\n", sep="")
  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.