if (require(polmineR.sampleCorpus) && require(rcqp)){
merkel <- partition("PLPRBTTXT", text_type="speech", text_name=".*Merkel", regex=TRUE)
merkel <- enrich(merkel, pAttribute="word")
cooc <- cooccurrences(merkel)
}
Run the code above in your browser using DataLab