我的程序！！！

org=sample(unique(data_sale$busno),10)
A=matrix(0,10,4)
for(i in 1:10){
sales=sqlQuery(channel,paste("select date, sum(wareqty) as wareqty FROM temp_sales
                            where wareid=",material," and busno=",org,"
                            group by date"))
maxdate=max(as.Date(sales$date))
mindate=min(as.Date(sales$date))
if(as.vector(maxdate-mindate)<=p*3){
A[i,1]<-paste(material,"-",org)
A[i,c(2,3,4)]<-c(rep("不预测",3))
next
}else{
predictdate=maxdate-p*3
actualdata=sales[as.Date(sales$date)>as.Date(predictdate),]
actualdate=as.Date(actualdata$date)
differce_actualdate=as.vector(actualdate-predictdate)
actual=matrix(0,(3*p),1)
for(i in 1:(3*p)){
   for(j in 1:length(differce_actualdate)){
      if(i==differce_actualdate[j]){
           actual[i,1]<-actualdata$wareqty[j]
           break }else
        {actual<-0}

   }
}
actual1=0
actual2=0
actual3=0
for(i in 1:p){
actual1=actual1+actual
}
xun1=p+1
xun2=2*p
for(i in xun1:xun2){
actual2=actual2+actual
}
xun3=2*p+1
xun4=3*p
for(i in xun3:xun4){
actual3=actual3+actual
}
true<-c(actual1,actual2,actual3)
A[i,1]<-paste(material,"-",org)
A[i,2]<-true[1]
A[i,3]<-true[2]
A[i,4]<-true[3]
}
}
A

报错：：Error in `[<-`(`*tmp*`, i, 1, value = "1016161 - NA") :
  subscript out of bounds
求助各位大神！！