R/getModelInfoOneClass.R

In benmack/oneClass: One-class classification in the absence of test data

#' Models available in \code{\link{trainOcc}}
#' 
#' getModelInfoOneClass is adopted from \code{\link{getModelInfo}} but returns 
#' models available in the package \code{\link{trainOcc}}.
#' 
#' @param model a character string of a defined one-class classification method.
#' So far: ocsvm, biasedsvm, maxent.
#' @param regex a logical: should a regular expressions be used? If FALSE, a simple match is conducted against the whole name of the model.
#' @param ... options to pass to grepl
#' @return a list containing one or more lists of the standard model information
#' @seealso \code{\link{getModelInfo}}
#' @examples
#' getModelInfoOneClass("biasedsvm")
#' @export
getModelInfoOneClass <- function (model = NULL, regex = TRUE, ...) 
{
  load(system.file("models", "models.RData", package = "oneClass"))
  if (!is.null(model)) {
    keepers <- if (regex) 
      grepl(model, names(models), ...)
    else which(model == names(models))[1]
    models <- models[keepers]
  }
  models
}