> nm<-matrix(c(2,2,-1,-1,-1,1,-1,-2,2),nrow=3,ncol=3,byrow=TRUE)
> nm
     [,1] [,2] [,3]
[1,]    2    2   -1
[2,]   -1   -1    1
[3,]   -1   -2    2
> eigen(nm)
$values
[1] 1+0i 1-0i 1+0i

$vectors
              [,1]          [,2]         [,3]
[1,]  0.5773503+0i  0.5773503+0i 0.5223529+0i
[2,] -0.5773503+0i -0.5773503-0i 0.1578222+0i
[3,] -0.5773503+0i -0.5773503-0i 0.8379974+0i

> nm<-matrix(c(2,2,-1,-1,-1,1,-1,-2,2),nrow=3,ncol=3,byrow=TRUE)
> nm
     [,1] [,2] [,3]
[1,]    2    2   -1
[2,]   -1   -1    1
[3,]   -1   -2    2
> eigen(nm)
$values
[1] 1+0i 1-0i 1+0i

$vectors
              [,1]          [,2]         [,3]
[1,]  0.5773503+0i  0.5773503+0i 0.5223529+0i
[2,] -0.5773503+0i -0.5773503-0i 0.1578222+0i
[3,] -0.5773503+0i -0.5773503-0i 0.8379974+0i