我的想法是按照报表的发布日期把四季度的数据按照发布日期的填充到日里面

如 ：  3.31发布一季报的某个指标 把这个指标往前填充到1.1-3.31 中   4.3发布的一季报把这个指标填充到1.1-4.3中  
已有数据 报表发布的日期 和四季度的指标数据

#日期寻找对应
a<-function(x)
  + grep(date[1,x],frame[1,])
for(i in 2:47)
frame[2,a(i):a(i)+1]<-as.numeric(BPS[2,i+1])   #参数长度为0？？？？

显示参数为零 但是我2和47的循环都试过了  参数不是零  哪位大神能帮忙看看这个是怎么回事？