r - 如何计算以下排除 R 中的索引总和？

Question

如果我们有一个x_{ij}大小为 4 x 3 的数据集和一个大小为 4 x 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_{l\neq j}x_{il})。例如，如果在我的 for 循环中j，

标签： r

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