对于循环返回R中的一个输出

Question

我从csv获得了一个49 * 49矩阵作为输入，并尝试将总和打印为49 * 49矩阵，但我只得到一个值作为总和的输出。

w <- read.csv(file="ma.csv", header=F, sep=",");
sum <- 4
for(i in 1:49){
  for(j in 1:49)
  {
    sum = sum + w[i,j];

  }
}  

Answer 1

可能是

w1 <- matrix(NA, ncol=3, nrow=3)
sum1 <- 4
for(i in 1:3){
 for(j in 1:3){
   w1[i,j] = sum1 + w[i,j];
   }
 }  
w1[] <- cumsum(w1)

或没有任何循环

 w2 <- w 
 w2[] <- cumsum(w+sum1)
 identical(w2, w1)
 #[1] TRUE

数据

set.seed(24)
w <- matrix(sample(0:20, 3*3, replace=TRUE), ncol=3)