input: vector a
output: list b
XXX <-- '13'
a<-rep(c('13',2,3,14,'13',1,4,13,2,4,1,1,1,1,13),times=100)
#t1开始下标，t2结束下标
t1<-c(which(a=='13'))
t2<-t1[-length(t1)]+diff(which(a=='13'))-1
#结果
b<-list()
for(i in 1:length(t2)){
b[[i]]<-a[t1[i]:t2[i]]
}
head(b,10)
初步如此，大量数据速度可能会慢，需改进
PS:code模式下b双中括号【【i】】变成了【i】，t1和t2的【i】变没了，是什么情况
