我写了一个循环脚本，运行后，显示找不到对象，高手给指点一下
a=20
r=numeric(a)
l1[1]=1189627
l2[1]=7
l3[1]=195
l4[1]=77
l5[1]=88
l6[1]=69
l7[1]=19
for(i in 1:(r-1)){
l1[i+1]=l1[i]*0.493+(l5[i]+l6[i]+l7[i])*479
l2[i+1]=l2[i]*0.029+l1[i]*0.023
l3[i+1]=l3[i]*0.918+l2[i]*0.003
l4[i+1]=l4[i]*0.964+l3[i]*0.010
l5[i+1]=l5[i]*0.958+l4[i]*0.026
l6[i+1]=l6[i]*0.950+l5[i]*0.032
l7[i+1]=l7[i]*0.991+l6[i]*0.040
}
l1
l2
l3
l4
l5
l6
l7