Project R12 Eigen Vektor(2)

A <- matrix(c(2,4,6,8), nrow = 2)
A

##      [,1] [,2]
## [1,]    2    6
## [2,]    4    8

eigen_info <- eigen(A)
eigenvalues <- eigen_info$values
eigenvectors <- eigen_info$vectors

print(eigenvalues)

## [1] 10.7445626 -0.7445626

print(eigenvectors)

##            [,1]       [,2]
## [1,] -0.5657675 -0.9093767
## [2,] -0.8245648  0.4159736