re script 003

[shawngraham]

Hi Ben, Code all still works. For the material I was using, I had to make these wee changes:

blogtext1 <- read.csv("blogtext-for-topics.csv", stringsAsFactors = FALSE) corp <- Corpus(VectorSource(blogtext1)) corp <- tm_map(corp, PlainTextDocument) corp <- tm_map(corp, FUN = tm_reduce, tmFuns = funcs)

...the tm package changed things up a bit.