if (FALSE) {
use("polmineR")
bt2009 <- partition("GERMAPARLMINI", date = "2009-.*", regex = TRUE)
pb <- partition_bundle(bt2009, s_attribute = "date", progress = TRUE)
pb <- enrich(pb, p_attribute = "word")
dtm <- as.DocumentTermMatrix(pb, col = "count")
summary(pb)
pb <- partition_bundle("GERMAPARLMINI", s_attribute = "date")
}
if (FALSE) {
use("RcppCWB", corpus = "REUTERS")
pb <- corpus("REUTERS") %>%
context(query = "oil", p_attribute = "word") %>%
partition_bundle(node = FALSE, verbose = TRUE)
}
# split up objects in partition_bundle by using partition_bundle-method
use("polmineR")
pb <- partition_bundle("GERMAPARLMINI", s_attribute = "date")
pb2 <- partition_bundle(pb, s_attribute = "speaker", progress = FALSE)
summary(pb2)
Run the code above in your browser using DataLab