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