R/mean_use_frequency.R

In cownr10r/teachr: Tools for assessing student writing

#' Calculate the term (vocabulary) frequencies
#' @param x essay_vector object
#' @return A calculation of mean frequency use of terms
#' @export

mean_use_frequency <- function(x) {

  u <- length(x) / length(unique(x))  # mean use frequency

  a <- paste0("mean use frequency score = ", u)

  return(a)

}