例如有12个数据H1<-c(14,20,22,31,14,20,22,31,14,20,22,31)，权重是H2<-c(0.25，017，0.28，0.3，0.1，0.2，0.3，0.4,0.23,0.56,0.1,0.11)我想实现的结果是Z[1]=14*0.25+20*017+22*0.28+31*0.3,后面的Z[2]，Z[3]也类似的这样算，我想用循环for(i in 0:3)
{
for(j in 1:3 )
{
z[j]<-sum(H1[4*i+j]*H2[4*i+j])
}
}
请问怎么出错了