library(tm)
data("crude")
tdm <- TermDocumentMatrix(crude)
findFreqTerms(tdm, 4, 6)