Used a 2% random sample from each provided source–twitter, blogs, and news–varied writing styles
Removed various artifacts including non-English characters, punctuation, hashtags, emails, urls, etc:
corpus<-iconv(rawdata, "latin1", "ASCII", sub="")
library(stringr)
corpus<-str_remove(corpus, "^#.+") #remove hashtags
corpus<-str_remove(corpus, "^@.+") #remove mentions from Twitter
corpus<-str_remove(corpus, "^.+@.+") #remove emails that got missed
corpus<-tolower(corpus) #lowercase everything
corpus<-str_remove(corpus,"^.*[0-9]+.+")
library(tm)
corpus<-removePunctuation(corpus)