如何计算以下排除R中的索引求和

Question

如果我们有大小为4乘3的数据集x_{ij}和大小为4乘以1的向量y_{i}。

a1=c(1,2,3, 4)
a2=c(4,5,6, 7)
a3=c(7,8,9,10)
x <- cbind(a1, a2, a3)
y <- c(1,5,7,9)

我想计算sum_{i}y_{i}-sum_{i}(sum_{lneq j}x_{il})的总和。例如，如果在j的For循环中，

Answer 1

试试这个：

a1=c(1,2,3, 4)
a2=c(4,5,6, 7)
a3=c(7,8,9,10)
x <- cbind(a1, a2, a3)
y <- c(1,5,7,9)
n <- NULL
for(j in 1:ncol(x)) n[j] <- sum(y)-sum(x[-j]) 
n