# merge partition_bundle into one partition
gparl <- corpus("GERMAPARLMINI") %>%
split(s_attribute = "date") %>%
merge()
use(pkg = "RcppCWB", corpus = "REUTERS")
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