## Not run:
# 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)
# ## End(Not run)
## Not run:
# 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")
# ## End(Not run)
Run the code above in your browser using DataLab