findAssocs（tm）将所有相关性作为一个相关项列表返回

Question

I have a corpus created from 2 text documents and a DocumentTermMatrix of which I want to find correlations between words. Whatever choice of words I select the findAssocs function returns correlations = 1 for all words in the corpus. Why is that?

Here are excerpts from my code:

library(tm)
library(SnowballC)
doc <- Corpus(DirSource("C:/Users/biat/Documents/customersatis"))

toSpace <- content_transformer(function(x,pattern) {return (gsub(pattern, " ", x))})

doc <- tm_map(doc, toSpace, "-")
doc <- tm_map(doc, toSpace, ":")
doc <- tm_map(doc, removePunctuation)
doc <- tm_map(doc,content_transformer(tolower))
doc <- tm_map(doc,removeNumbers)
doc <- tm_map(doc,removeWords,stopwords("swedish"))
doc <- tm_map(doc,stripWhitespace)
doc <- tm_map(doc, PlainTextDocument)
doc <- tm_map(doc, stemDocument, "swedish")

dtm <- DocumentTermMatrix(doc)
findAssocs(dtm,"active",0.1)

When I run this the results imply that the term "active" is correlated to all 560 other words by 1 as follows which in reality it's not.

$active
  admin    actions    all   analysis arrends   
      1          1      1          1       1 .........    
   ...................................................        

............................ website  workshops  
                                   1          1                                                       

Answer 1

As stated by scoa you might have two documents in which a term happens both times: resulting in ones.

Try collapsing the document before turning it into a corpus:

text <- paste(unlist(text), collapse ="")