```{r setup, include = FALSE}
library(dplyr)
library(tidyr)
library(stringr)
library(lubridate)

tas <- read.csv("https://cs.brown.edu/courses/cs100/lectures/scripts/section6/birthdays2017.csv", stringsAsFactors = FALSE)
```
