R/print.combinedGradientForest.r

In slarge/gradientForest: Random Forest functions for the Census of Marine Life synthesis project.

`print.combinedGradientForest` <-
function(x,...)
{
  cat("\nCall:\n")
  cat(paste(deparse(x$call), sep = "\n", collapse = "\n"), "\n", sep = " ")
  cat("\ngradientForest objects:\n")
  cat(paste(levels(x$X[,1]), sep = " "), "\n", sep = " ")
  cat("\nNumber of Species:\n")
  print(x$nspec)
  cat("\nPredictors:\n")
  cat(paste(names(x$X)[-1], sep = " "), "\n", sep = ", ", fill=T)
  invisible(x)
}