运行R软件，下标出界的问题，求助啊-经管之家官网！

求助啊，R运行最后出错了，提示下标出界，高手帮忙看下啊（关于高频数据的）
X=read.table("www.txt", header=TRUE)
m=ncol(X)
n=nrow(X)
Ind.all=X$Day.N
n.all=length(Ind.all)
Day.Ind=Ind.all[1]
for(j in 2:n.all)
{if(Ind.all[j]>Ind.all[j-1]){Day.Ind=c(Day.Ind,Ind.all[j])}}
nd=length(Day.Ind)
for(j in 1:nd)
{
Day.N=X$Day.N
Ind.Minute=X$Minute.1[Day.N==Day.Ind[j]]
Price=X$Price[Day.N==Day.Ind[j]]
Volume=X$Volume[Day.N==Day.Ind[j]]
n=length(Ind.Minute)
Minute.Ind=Ind.Minute[1]
for(i in 2:(n-1))
{if
(Ind.Minute>Ind.Minute[i-1])
{Minute.Ind=c(Minute.Ind,Ind.Minute)}}
HFj=matrix(0, 4, 511)
m=length(Minute.Ind)
for(i in 1:m)
{
Pricei=Price[Ind.Minute==Minute.Ind]
ni=length(Pricei)
Volumei=Volume[Ind.Minute==Minute.Ind]
HFj[1, Minute.Ind+1]=Pricei[ni]
HFj[2, Minute.Ind+1]=sum(Pricei*Volumei)/sum(Volumei)
HFj[3, Minute.Ind+1]=ni
HFj[4, Minute.Ind+1]=sum(Volumei)
if(i<m && Minute.Ind[i+1]-Minute.Ind>1)
{k=Minute.Ind[i+1]-Minute.Ind-1
for(l in 1:k)
{
HFj[1, Minute.Ind+1+l]=Pricei[ni]
HFj[2, Minute.Ind+1+l]=HFj[2, Minute.Ind+1]
}
}
}
###### i=1
z0=Minute.Ind[1]
if(z0>0)
{HFj[1, 1:z0]=Price[1]
HFj[2, 1:z0]=HFj[2, z0+1]
}
######
###### i=m
zm=Minute.Ind[m]
if(zm<510)
{
HFj[1, (zm+2):511]=HFj[1, zm+1]
HFj[2, (zm+2):511]=HFj[2, zm+1]
}
######
if(j==1)
{HF.ALL=HFj}
if(j>1)
{HF.ALL=cbind(HF.ALL,HFj)}
} ## End of Day ##
##HF.ALL[2,]
Output=t(HF.ALL)
哪有问题啊 ？？

扫码或添加微信号：坛友素质互助

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP