# day1 to day5 defined for you
day1<-as.Date("2016-04-26")
day2<-as.Date("2016-04-21")
day3<-as.Date("2016-05-02")
day4<-as.Date("2016-04-19")
day5<-as.Date("2016-05-07")