Question

我一直在尝试使用R跟随document classification tutorial on YouTube并且它非常有趣，但是当我尝试运行脚本的第一部分时，我不断收到此错误Error in FUN(c("obama", "romney")[[1L]], ...) : could not find function "corpus"。我真的不知道为什么会这样，但我希望有人能帮助我解决这个问题。

这是剧本：

#init
libs <- c("tm", "plyr", "class")
lapply(libs, require, character.only = TRUE)

# set options
options(stringAsFactors = FALSE)

#set parameters
candidates <- c("obama","romney")
pathname <- "C:\\Users\\admin\\Documents\\speeches"

#clean text
  cleanCorpus <- function(corpus){
  corpus.tmp <- tm_map(corpus, removePunctuation)
  corpus.tmp <- tm_map(corpus.tmp, stripWhitespace)
  corpus.tmp <- tm_map(corpus.tmp, tolower)
  corpus.tmp <- tm_map(corpus, removeWords, stopWords("english"))
  return(corpus.tmp)
 }

#Build TDM
 generateTDM <- function(cand, path){
  s.dir <- sprintf("%s/%s", path, cand)
  s.cor <- corpus(DirSource(directory = s.dir, encoding = "ANSI"))
  s.cor.cl <- cleanCorpus(s.cor)
  s.tdm <-TermDocumentMatrix(s.cor.cl)

  s.tdm <- removeSparseTerms(s.tdm, 0.7)
  result <- list(name = cand,  tdm = s.tdm)
}

tdm <- lapply(candidates, generateTDM, path = pathname)

Answer 1

您的路径名称应为

路径名＆lt; - “C：/ Users / admin / Documents / speeches”

注意：路径名中有正斜杠

r的文件分类

1 个答案: