eigen() decomposition
$values
[1] 0.90975372+0.0000000i -0.43917558+0.7121757i -0.43917558-0.7121757i
[4] -0.03140256+0.0000000i
$vectors
[,1] [,2] [,3]
[1,] 0.98809238+0i -0.98437105+0.000000000i -0.98437105+0.000000000i
[2,] 0.10861097+0i 0.06175270+0.100139377i 0.06175270-0.100139377i
[3,] 0.09550802+0i 0.05050534-0.100512941i 0.05050534+0.100512941i
[4,] 0.05249114+0i -0.06696735+0.005838105i -0.06696735-0.005838105i
[,4]
[1,] -0.0007726432+0i
[2,] 0.0024604462+0i
[3,] -0.0626814138+0i
[4,] 0.9980302548+0i