if (require("polmineR.sampleCorpus")){
use(polmineR.sampleCorpus)
kauder <- partition("PLPRBTTXT", text_name="Volker Kauder", pAttribute="word")
all <- partition("PLPRBTTXT", text_date=".*", regex=TRUE, pAttribute="word")
terms_kauder <- compare(kauder, all, included=TRUE)
top100 <- subset(terms_kauder, rank_chisquare <= 100)
}
if (require("polmineR.sampleCorpus")){
use(polmineR.sampleCorpus)
byName <- partitionBundle("PLPRBTTXT", sAttribute="text_name")
byName <- enrich(byName, pAttribute="word")
all <- partition("PLPRBTTXT", text_date=".*", regex=TRUE, pAttribute="word")
result <- compare(byName, all, included=TRUE, progress=TRUE)
dtm <- as.DocumentTermMatrix(result, col="chisquare")
}
Run the code above in your browser using DataLab