R/lexical_uniqueness.R

In cownr10r/teachr: Tools for assessing student writing

#' Calculate the number of uniquely used words in an essay.
#' @param x essay_vector object
#' @return the following text "mean use frequency score = #', where # = number calculation
#' @examples
#' lexical_uniqueness(x)
#' @export

lexical_uniqueness <- function(x){

  total_vocabulary <- length(unique(x)) # number of unique

  a <- paste0("total unique vocabulary use score = ", total_vocabulary)

  return(a) # sorted frequencies Search

}