if (FALSE) {
#stemmer EXAMPLE:
stemmer(DATA$state)
out1 <- stemmer(raj$dialogue)
htruncdf(out1, 20, 60)
#stem_words EXAMPLE:
stem_words(doggies, jumping, swims)
#stem2df EXAMPLE:
out2 <- stem2df(DATA, "state", "new")
truncdf(out2, 30)
}
Run the code above in your browser using DataLab