SCM

SCM Repository

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

Diff of /pkg/R/termdocmatrix.R

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

revision 885, Thu Jan 29 09:34:44 2009 UTC revision 886, Thu Jan 29 22:47:34 2009 UTC
# Line 57  Line 57 
57      if (is.logical(stemming) && stemming) {      if (is.logical(stemming) && stemming) {
58          txt <- if (suppressWarnings(require("Rstem", quietly = TRUE)))          txt <- if (suppressWarnings(require("Rstem", quietly = TRUE)))
59              Rstem::wordStem(txt, language = resolveISOCode(Language(doc)))              Rstem::wordStem(txt, language = resolveISOCode(Language(doc)))
60          else          else {
61              SnowballStemmer(txt, Weka_control(S = resolveISOCode(Language(doc))))              require("Snowball")
62                Snowball::SnowballStemmer(txt, structure(list(S = resolveISOCode(Language(doc))), class = "Weka_control"))
63            }
64      }      }
65    
66      # Stopword filtering      # Stopword filtering

Legend:
Removed from v.885  
changed lines
  Added in v.886

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