R/choose.wrapper.R

In plejeail/Wrapper: features selection with wrapper for supervised learning

########===============================================================########
####                                                                       ####
##          choose.wrapper return the chosen approach                        ##
#                                                                             #
########===============================================================########




.choose.wrapper <- function(approach) {
  if (approach == "forward") {
    return(.wrap.for)
  }
  if (approach == "backward") {
    return(.wrap.back)
  }
  if (approach == "genetic") {
    return(.wrap.gen)
  }
}