data("usnews", package = "sentometrics")
corpus <- sento_corpus(usnews)
# summary of corpus by day
summary1 <- corpus_summarize(corpus)
# summary of corpus by month for both journals
summary2 <- corpus_summarize(corpus, by = "month",
features = c("wsj", "wapo"))
Run the code above in your browser using DataLab