# NOT RUN {
# how do the predicted sentiment scores change across the years?
require(dplyr)
get_sentence(obama) %>%
group_by(id) %>%
summarize(mean(sentiment), se = sd(sentiment) / sqrt(n()))
# }
Run the code above in your browser using DataCamp Workspace