作者maoc (懋牌货)
看板Statistics
标题Re: [问题] [R]identity matrix
时间Sat Apr 18 09:42:54 2009
※ 引述《paiyeu (微笑台湾)》之铭言：
: [,1] [,2] [,3]
: [1,] 1 0 0
: [2,] 0 1 0
: [3,] 0 0 1
: [4,] 1 0 0
: [5,] 0 1 0
: [6,] 0 0 1
: [7,] 1 0 0
: [8,] 0 1 0
: [9,] 0 0 1
: . . .
: . . .
: . . .
one <- rep(1,10)
I <- diag(rep(1,3))
out <- one %x% I ## %x% 是 Kronecker product
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.52.78
1F：推 KnightX:高招！其中 I <- diag(3) 就好了～！ 04/18 10:08