I have time series data set
y<-c(1,5,12,21,30,50,90,100) Date = c("2020/07/16","2013/07/23","2020/07/30","2020/08/06&qu