R/words_freq.R

In jiebaR: Chinese Text Segmentation

#' @title The frequency of words
#' @description This function returns the frequency of words
#' @param x a vector of words
#' @return The frequency of words
#' @author Qin wenfeng
#' @examples 
#' freq(c("a","a","c"))
#' @export
freq <- function(x){
  if("character" %in% class(x) != TRUE){
    stop("Please give me a character vector.")
  }
  if(.Platform$OS.type=="windows"){
    x=enc2utf8(x)
  }
  
  res = words_freq(x)
  s = data.frame(char=attr(res,"names"),freq=as.numeric(res),stringsAsFactors = F)
  
  if(.Platform$OS.type=="windows"){
    Encoding(s$char) = "UTF-8"
  }
  
  return(s)
}