# NOT RUN {
# }
# NOT RUN {
## handles of women senators
sens <- c("SenatorBaldwin", "SenGillibrand", "PattyMurray", "SenatorHeitkamp")
## get timelines for each
sens <- get_timeline(sens, n = 3200)
## get single time series for tweets
ts_data(sens)
## using weekly intervals
ts_data(sens, "weeks")
## group by screen name and then use weekly intervals
sens %>%
dplyr::group_by(screen_name) %>%
ts_plot("weeks")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab