if (require(polmineR.sampleCorpus) && require(rcqp)){
use("polmineR.sampleCorpus")
test <- partition("PLPRBTTXT", text_year="2009", pAttribute=NULL)
integration <- dispersion(test, query="Integration", pAttribute="word", sAttribute="text_date")
integration <- dispersion(test, "Integration", sAttribute=c("text_date", "text_party"))
integration <- dispersion(test, '"Integration.*"', sAttribute=c("text_year"))
}
Run the code above in your browser using DataLab