R语言编程问题

ポ奉ポ奉餹

您好，向高手求助一下，我这个程序能运行，但特别慢，有什么能改进的地方吗？

dzh=NULL
for(i in 1:1044)
{dzh[i]=0; for(j in 1:1446)  { for (k in 1:1447)
{if(iy[j]==sizh[i]&&iy[k]==eizh[i])
{for(m in (j+1):k) {dzh[i]=dzh[i]+dy[m];dzh[i+1]=0}
}
}
}
}
dzh

ポ奉ポ奉餹

非常非常感谢！