R 前4列与后4列的元素相乘

我尝试将前两列与下两列进行元素相乘，并将结果添加到第五列

例如：

> x = diag(4)

     [,1] [,2] [,3] [,4]   C1*C3 + C2*C4
[1,]    1    0    0    0   1*0 + 0*0 
[2,]    0    1    0    0   0*0 + 1*0 
[3,]    0    0    1    0   0*1 +0*0
[4,]    0    0    0    1   0*0 +0*1

---

谢谢大家!

您可以直接在base R中执行此操作

cbind(x, rowSums(x[,1:2] * x[,3:4]))

虽然按照你在“结果”中显示的内容，但你每做一列都是简单的修改

cbind(x, rowSums(x[,c(1,3)] * x[,c(2,4)]))

---

不管怎样，你都得到了0分。一个选项是

库（matrixStats）；rowProds（x[，c（真，假）]）+rowProds（x[，c（假，真）]）

@lapioche75不客气，如果您满意，请务必接受答案