SCM

SCM Repository

[tm] Diff of /pkg/R/textdoccol.R
ViewVC logotype

Diff of /pkg/R/textdoccol.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 757, Thu Jun 7 17:41:56 2007 UTC revision 760, Thu Jun 21 22:40:15 2007 UTC
# Line 220  Line 220 
220            signature(object = "PlainTextDocument"),            signature(object = "PlainTextDocument"),
221            function(object, language = "english", ...) {            function(object, language = "english", ...) {
222                splittedCorpus <- unlist(strsplit(object, " ", fixed = TRUE))                splittedCorpus <- unlist(strsplit(object, " ", fixed = TRUE))
223                stemmedCorpus <- if (require("Rstem"))                stemmedCorpus <- if (require("Rstem", quietly = TRUE))
224                    Rstem::wordStem(splittedCorpus, language)                    Rstem::wordStem(splittedCorpus, language)
225                else                else
226                    SnowballStemmer(splittedCorpus, Weka_control(S = language))                    SnowballStemmer(splittedCorpus, Weka_control(S = language))

Legend:
Removed from v.757  
changed lines
  Added in v.760

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge