R/convert_factor_to_numeric.R

In antchau/glider: Utility Functions for Usage with Wadwha Research Group

#' Convert a factor type to a numeric type
#' levels() gets the factor levels as characters
#' as.numeric() converts the factor levels to numeric
#' subsetting the factor column by as.numeric(levels()) gives the numeric form of the factor column
#'
#'
#' @param x A vector of type factor
#'
#' @return A vector of type numeric
#' @export
#'
#' @examples
#' scores <- factor(x = c("1", "2"))
#' factor_to_numeric(scores)
convert_factor_to_numeric <- function(x) {
  if(is.factor(x)){
    return(as.numeric(levels(x))[x])
  } else{
    return(x)
  }
}