library(lubridate)
dataseries<-seq(startdate+20,startdate+34,by=1)
k<-1
    for(i in 1:14){
      if(dataseries[i] %in% table2$TRADEDATE)
      {
        if(weekdays(dataseries[i])=="星期一")
      {k<-i}
}我这里面dataseries[1]就是周一，但不在table2$TRADEDATE里，但是执行出来的结果为什么还是k=1,怎样让它往后走