R语言 求任意一个方形矩阵的对角线元素的和。

Question

如题所述

Answer 1

x <- matrix(runif(16),nrow=4)
#法1
sum(x[row(x)==col(x)])
#法2
s <-0
for(i in 1:nrow(x)) s <- s+x[i,i]本回答被提问者采纳