#' Grow
#' @export
grow <- function(x, ...) UseMethod("grow")
grow.default <- function(x, ...)
stop("grow has not been implemented for this class of object")
#' Grow random forest
#' @method grow randomForest
#' @export
grow.randomForest <- function(x, how.many, ...) {
y <- update(x, ntree=how.many)
combine(x, y)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.