Wordclouds again....

> feedback <- Corpus(DirSource("wordcloud/"))
> inspect(feedback)


> feedback1<-tm_map(feedback,stripWhitespace)
> feedback1<-tm_map(feedback1, tolower)

> feedback1<-tm_map(feedback1, removeWords, stopwords("english"))

> wordcloud(feedback1)

> wordcloud(feedback1, scale=c(5,0.5), colors=brewer.pal(8,"Dark2"))