formatProcureText: Formats procurement text into a term document matrix
In jon-mellon/procureClassify: Text classification for procurement analytics

Description Usage Arguments Examples

View source: R/formatProcureText.R

Formats procurement text into a term document matrix

1	formatProcureText(procure, text.var)

`procure`
`text.var`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (procure, text.var) 
{
    TrigramTokenizer <- function(x) NGramTokenizer(x, Weka_control(min = 1, 
        max = 2))
    text <- mapply(paste, procure[, text.var], collapse = " ")
    text <- stripWhitespace(text)
    text <- removePunctuation(text)
    text <- tolower(text)
    text <- Corpus(VectorSource(text))
    text <- tm_map(text, removeWords, c("the", stopwords("english")))
    text <- tm_map(text, removeNumbers)
    dtm <- DocumentTermMatrix(text, control = list(weighting = weightTf, 
        tokenize = TrigramTokenizer))
    return(dtm)
  }