代码 求A 的迹 library(lava) tr(A) #这个lava包大部分应该是系统已经安装了,未安装的话用下面代码安装 #install.packages("lava") 或者是 lava::tr(A) 或者是 sum(diag(A)) 注:diag()可以提取对角的元素,然后加和 例子: 先生成一个四×四的矩阵 x <- matrix(1:16,nrow=4,ncol=4) x 第一种方法 第二种方法 第三种方法