R言語の逆行列計算について
R言語の初心者です
ある本の通りにプログラムを進めていったところ逆行列を求める際以下のようなことが起こりました
> A<-matrix(c(4,7,0,5),nrow=2)
> A
[,1] [,2]
[1,] 4 0
[2,] 7 5
> Ainv<-solve(A)
> Ainv
[,1] [,2]
[1,] 0.25 -1.110533e-17
[2,] -0.35 2.000000e-01
> Ainv %*% A
[,1] [,2]
[1,] 1.000000e+00 -5.552664e-17
[2,] -5.551115e-17 1.000000e+00
なぜか逆行列を求めるとき複素数が入ってしまいます
本ではちゃんとした値が出ています。すいませんがこれを直して複素数を除く逆行列を求められる
設定方法を教えてください
お礼
ありがとうございました