R/fac2num.R

In patr1ckm/patr1ckm: Handy R code

# fac2num
#' Convert a factor to numeric
#'
#' Convert a factor with numeric levels to a non-factor. This was stolen from Karl Broman, and just put in this package for convenience.
#'
#' @param x A vector containing a factor with numeric levels
#'
#' @return The input factor made a numeric vector
#'
#' @examples
#' x <- factor(c(3, 4, 9, 4, 9), levels=c(3,4,9))
#' fac2num(x)
#'
#' @export
#' @references from package \code{kbroman}
#'
fac2num <-
  function(x)
  {
    nam <- names(x)
    x <- as.numeric(as.character(x))
    names(x) <- nam
    x
  }