A <- matrix(c(1, 2, 3, 4), nrow = 2)
A
##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4
eigen_info <- eigen(A)
eigenvalues <- eigen_info$values
eigenvectors <- eigen_info$vectors
print(eigenvalues)
## [1]  5.3722813 -0.3722813
print(eigenvectors)
##            [,1]       [,2]
## [1,] -0.5657675 -0.9093767
## [2,] -0.8245648  0.4159736