## 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")
# ## End(Not run)
Run the code above in your browser using DataLab