# NOT RUN {
# merge partition_bundle into one partition
gparl <- corpus("GERMAPARLMINI") %>%
split(s_attribute = "date") %>%
merge()
pb <- partition_bundle("REUTERS", s_attribute = "id")
barplot(pb, las = 2)
sc <- corpus("GERMAPARLMINI") %>%
subset(date == "2009-11-10") %>%
split(s_attribute = "speaker") %>%
barplot(las = 2)
# }
Run the code above in your browser using DataLab