## Not run:
# \dontrun{
# use("polmineR.sampleCorpus")
# debates <- partition("PLPRBTTXT", list(text_id=".*"), regex=TRUE)
# x <- count(debates, "Arbeit") # get frequencies for one token
# x <- count(debates, c("Arbeit", "Freizeit", "Zukunft")) # get frequencies for multiple tokens
# x <- count("PLPRBTTXT", c("Migration", "Integration"), "word")
#
# debates <- partitionBundle(
# .Object="PLPRBTTXT",
# def=list(text_date=sAttributes("PLPRBTTXT", "text_date")),
# regex=TRUE, mc=FALSE, verbose=FALSE
# )
# aiu <- count(debates, c("Arbeit", "Integration", "Umwelt"))
# }
# ## End(Not run)
Run the code above in your browser using DataLab