#Data set has been generated as follows:
token <- auth.google.reader(email="<username>@gmail.com", password="<password>")
rbloggers <- WebCorpus(GoogleReaderSource("http://feeds.feedburner.com/RBloggers", token, params = list(n = 1000)),
postFUN = NULL)Run the code above in your browser using DataLab