I have this Data set
date1<-c(rep(c("2020-06-01"),times=20)) date2<-c(rep(c("2020-06-02"),times=15)) date3<-c(rep(c("2020-06-03&