hw03

library(readr)
library(lubridate)
library(DT)
library(dplyr)
df <- read.csv("dataset.csv")
df <- df %>%
  mutate(Date = mdy(Date))
datatable(head(df, 1000), options = list(pageLength = 10))