用于矩阵中的循环或用于解决大型矩阵的类似结构

Question

Item

我尝试使用上面的语法，但是没有用。因此，请寻求有关循环或函数的帮助以解决此问题。

Answer 1

我们可以使用回收选择交替的列，然后添加：

# example matrix
m <- matrix(1:12, ncol = 4)
#      [,1] [,2] [,3] [,4]
# [1,]    1    4    7   10
# [2,]    2    5    8   11
# [3,]    3    6    9   12

m[, c(TRUE, FALSE)] + m[, c(FALSE, TRUE)]
#       [,1] [,2]
# [1,]    5   17
# [2,]    7   19
# [3,]    9   21