R/bag_of_words.r

In clbustos/SemanticFields: Analize lexical availability corpora using traditional methods and graphs

#' Generate matrix with people as rows and words as columns
#' 
#' @param x a corpus object
#' @return x a matrix
#' @export

bagOfWords<-function(x) {
  corpus<-x$corpus
  out<-xtabs(~corpus$id+corpus$word)
  
}