data(crude)
tdm <- TermDocumentMatrix(crude,
control = list(removePunctuation = TRUE,
removeNumbers = TRUE,
stopwords = TRUE))
plot(tdm, corThreshold = 0.2, weighting = TRUE)
Run the code above in your browser using DataLab