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 698, Sat Jan 6 17:05:44 2007 UTC revision 702, Tue Jan 9 09:39:33 2007 UTC
# Line 151  Line 151 
151            function(object, ...) {            function(object, ...) {
152                require("Rstem")                require("Rstem")
153                splittedCorpus <- unlist(strsplit(object, " ", fixed = TRUE))                splittedCorpus <- unlist(strsplit(object, " ", fixed = TRUE))
154                stemmedCorpus <- wordStem(splittedCorpus)                stemmedCorpus <- Rstem::wordStem(splittedCorpus)
155                Corpus(object) <- paste(stemmedCorpus, collapse = " ")                Corpus(object) <- paste(stemmedCorpus, collapse = " ")
156                return(object)                return(object)
157            })            })

Legend:
Removed from v.698  
changed lines
  Added in v.702

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