Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/81.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
For循环对R中矩阵的每列求和_R_For Loop - Fatal编程技术网

For循环对R中矩阵的每列求和

For循环对R中矩阵的每列求和,r,for-loop,R,For Loop,对于以下矩阵: my_matrix<-matrix(seq(from=1,to=100,by=2)) my_matrix如果您明确希望使用for循环,这里有一种方法: mat <- matrix(1:50, byrow = TRUE, ncol = 10) all_vals <- numeric(ncol(mat)) for (i in seq(ncol(mat))) { all_vals[i] <- sum(mat[, i]) } all_vals #[1]

对于以下矩阵:

my_matrix<-matrix(seq(from=1,to=100,by=2))

my_matrix如果您明确希望使用
for
循环,这里有一种方法:

mat <- matrix(1:50, byrow = TRUE, ncol = 10)
all_vals <- numeric(ncol(mat))
for (i in seq(ncol(mat))) {
   all_vals[i] <- sum(mat[, i])
}

all_vals
#[1] 105 110 115 120 125 130 135 140 145 150

苏,你可以试试这个简单的循环,希望它能帮助解决你的问题

sum <- 0
for(i in 1:ncol(my_matrix)){
  sum[i] <- sum(my_matrix[,i])
}

sum
apply(我的矩阵,2,sum)
?非常感谢!!!我稍微调整了一下以解决我的问题,但效果很好!!!你太棒了!!!
sum <- 0
for(i in 1:ncol(my_matrix)){
  sum[i] <- sum(my_matrix[,i])
}