if (FALSE) {
data(politics)
poliClean <- cleanTexts(politics)
# complete corpus
plotScot(object=poliClean)
# subcorpus
subID <- filterWord(poliClean, search=c("bush", "obama"), out="bin")
plotScot(object=poliClean, id=names(subID)[subID], curves="both", smooth=0.3)
}
Run the code above in your browser using DataLab