循环里的数据如何做加法

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

例如有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])
}
}
请问怎么出错了

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：如何

1. H2中应使用英文逗号,
2. 应预先定义z

1. H1 <- c(14, 20, 22, 31, 14, 20, 22, 31, 14, 20, 22, 31)
   
2. H2 <- c(0.25,0.17,0.28,0.3,0.1,0.2,0.3,0.4,0.23,0.56,0.1,0.11)
   
3. z<-apply(matrix(1:3,ncol=1),1,function(i) sum(H1[i:(i+2)]*H2[i:(i+2)]))

复制代码

这个问题不是很简单么？
就是简单的矩阵乘法呀

1. x <- sample(1:1000,120)
   
2. H1 <- matrix(x,ncol=12)
   
3. H2 <- abs(rnorm(12))
   
4. H1%*% H2

复制代码