标签：10 语言 ## 矩阵 常规 dat 对角线 c3 matrix

1、生成矩阵，使用matrix函数

> set.seed(111)                  ## 设定随机数种子
> vect <- sample(1:10,16, replace = T)
> vect
 [1]  4  3  9  5  3  8 10  1 10  4  8 10  9  8  1  7
> dat <- matrix(vect, nrow = 4, ncol = 4, byrow = T,        ## 生成4行4列矩阵，矩阵行列相同，也叫方阵，并指定行名、列名
+               dimnames = list(paste0("r",1:4), paste0("c",1:4)))
> dat
   c1 c2 c3 c4
r1  4  3  9  5
r2  3  8 10  1
r3 10  4  8 10
r4  9  8  1  7
> class(dat)
[1] "matrix" "array" 

2、提取主对角线元素

> dat
   c1 c2 c3 c4
r1  4  3  9  5
r2  3  8 10  1
r3 10  4  8 10
r4  9  8  1  7
> class(dat)
[1] "matrix" "array" 
> diag(dat)    ## 提取主对角线元素
[1] 4 8 8 7

3、提取副对角线元素

> dat
   c1 c2 c3 c4
r1  4  3  9  5
r2  3  8 10  1
r3 10  4  8 10
r4  9  8  1  7
> diag(dat[,ncol(dat):1])   ## 先列逆向输出，然后取对角线
[1]  5 10  4  9

标签：10,语言,##,矩阵,常规,dat,对角线,c3,matrix
来源： https://www.cnblogs.com/liujiaxin2018/p/15858547.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。