R/as.numeric.factor.R

In sorhawell/happytest: Visualizes Random Forests with Feature Contributions

Defines functions as.numeric.factor

Documented in as.numeric.factor

#sub function to fix categorical features
as.numeric.factor <- function(x,drop.levels=TRUE) {
  if(is.numeric(x)) return(x) ## if already numeric, do onothing
  if(drop.levels) x = match(x,levels(droplevels(x))) else x = match(x,levels(x))
  return(x)
}