R/as.is.R

#' Title
#'
#' @param x factor or charactor
#'
#' @return x factor
#' @export
#'
#' @examples
#' (a <- c("character", "your", "eyeballs","hits","hits"))
#' (a <- factor(c("character", "your", "eyeballs","hits","hits")))
#'
#' a <- as.is(a)
#' a
as.is <- function(x,...){
  x <- factor(x,unique(x),...)
}
BattaLiu/HW8JiayiLiu documentation built on May 5, 2019, 10:31 a.m.