if (require(polmineR.sampleCorpus) && require(rcqp)){
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