求助 diag（）函数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

为什么diag（a[b[,2],b[,3]]） <-  b[,1] 运算出来的结果并不是将b[,1]赋值给a[b[,2],b[,3]]的对角线上呢？
具体情况见下图

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Dia

1. a <- matrix(101:125,5,)
   
2. b <- matrix(c(2,3,1,1,3,4,2,4,4,1,2,3),nrow=4,byrow = TRUE)
   
3. c <- a[b[,2],b[,3]]
   
4. b[,1]
   
5. diag(c)<-b[,1]
   
6. c
   
7.    [,1] [,2] [,3] [,4]
   
8. [1,]    2  118  118  113
   
9. [2,]  103    1  118  113
   
10. [3,]  104  119    2  114
    
11. [4,]  102  117  117    1

复制代码

ywh19860616 发表于 2014-2-22 15:43

非常感谢