小编Mok*_*ksh的帖子

12
推荐指数
1
解决办法
321
查看次数

求矩阵的对角元素

我编写了一个函数来将矩阵的对角元素存储到向量中。但输出并不像我预期的那样。代码是

diagonal <- function(x) {
for( i in nrow(x)){ 
for(j in ncol(x)){
  if(i == j) { 
    a <- x[i,j]
  } 
}
}
print(a)
}
Run Code Online (Sandbox Code Playgroud)

我正在将矩阵传递给函数。代码有什么问题?

r

0
推荐指数
1
解决办法
6991
查看次数

标签 统计

r ×2