R/getHyperSpace.R

In rgmantovani/autoHyperBot:

# -------------------------------------------------------------------------------------------------
# -------------------------------------------------------------------------------------------------

getHyperSpace = function(learner, ...) {

  name = sub('classif.', '', learner$id)
  substring(name, 1, 1) = toupper(substring(name, 1, 1)) 
	
  fn.space = get(paste0("get", name , "Space"))
  par.set = fn.space(...)
  return(par.set)

}

# -------------------------------------------------------------------------------------------------
# -------------------------------------------------------------------------------------------------