R/TODO.r

In yanxianUCSB/yxhelper: Yx's Personal R packages

# Mon Apr 02 22:23:25 2018 ------------------------------
#' Transform numeric/character vector to factor with natively ordered levels
#'
#' @param x numeric or character vector
#'
#' @return
#'
nativefac <- function(x){
  factor(as.character(x), levels=unique(x))
}