【Rによるデータサイエンス】固有値方程式および特異値分解

固有値方程式

> A.eig<-eigen(A)
> A.eig
$values
[1] 4.5615528 0.4384472

$vectors
           [,1]       [,2]
[1,] -0.2703230 -0.8719282
[2,] -0.9627697  0.4896337

特異値分解

> D.s<-svd(A)
> D.s
$d
[1] 4.6708301 0.4281894

$u
           [,1]       [,2]
[1,] -0.2897841 -0.9570920
[2,] -0.9570920  0.2897841

$v
           [,1]       [,2]
[1,] -0.4718579 -0.8816746
[2,] -0.8816746  0.4718579