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