# NOT RUN {
use("polmineR.sampleCorpus")
bt2009 <- partition("PLPRBTTXT", text_year = "2009")
pBundle <- partitionBundle(bt2009, sAttribute = "text_date", progress = TRUE, pAttribute = "word")
dtm <- as.DocumentTermMatrix(pBundle, col = "count")
summary(pBundle)
btBundle <- partitionBundle("PLPRBTTXT", sAttribute = "text_date")
# }
Run the code above in your browser using DataLab