apply(object, 1, function(x) sum(x-a)/b)是对object矩阵的每一行进行操作,将每行中的数值相加减去a,然后除以b,返回一个向量。这个方法可能会占用相对较多的内存空间。
rowsums((object-a)/b)是对object矩阵的每一列进行操作,首先将矩阵中的所有元素减去a,然后除以b,最后对每一列中的数值相加,返回一个向量。这个方法相对较为高效。
以下是代码示例:
mat <- matrix(1:9, nrow=3, ncol=3)
apply(mat, 1, function(x) sum(x-2)/3)
rowsums((mat - 2)/3)