R/previousTrained.R

In DarioS/ClassifyR: A framework for cross-validated classification problems, with applications to differential variability and differential distribution testing

# Automated Usage of Previously Created Classifiers
previousTrained <- function(classifyResult, .iteration, verbose = 3)
{
  if(verbose == 3)
    message("Using existing classifier for classification.")
  
  models(classifyResult)[[.iteration]]
}
attr(previousTrained, "name") <- "previousTrained"