Step corpus with annotation.

Description

Given a VCorpus of original text, returns a VCorpus of stemmed text with '+' appended to all stemmed words.

Usage

1
stem.corpus(corpus, verbose = TRUE)

Arguments

corpus

Original text

verbose

True means do progress bar to watch progress.

Details

This is non-optimized code that is expensive to run. First the stemmer chops words. Then this method passes through and adds a "+" to all chopped words, and builds a list of stems. Finally, the method passes through and adds a "+" to all stems found without a suffix.

So, e.g., goblins and goblin will both be "goblin+".

Code based on code from Kevin Wu, UC Berkeley Undergrad Thesis 2014.

Requires, via the tm package, the SnowballC package.

Examples

1
2
3
4
5
6
7
8
9
## Not run: 
library( tm )
texts <- c("texting goblins the dagger", "text these goblins",
            "texting 3 goblins appl daggers goblining gobble")
corpus <- Corpus(VectorSource(texts))
stemmed_corpus<-stem.corpus(corpus, verbose=FALSE)
stemmed_corpus[[2]]

## End(Not run)

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.