A <- matrix(c(3, 1, 1, 2), nrow = 2)
eigen_result <- eigen(A)
eigen_vectors <- eigen_result$vectors
print("Eigenvektor:")
## [1] "Eigenvektor:"
print(eigen_vectors)
##            [,1]       [,2]
## [1,] -0.8506508  0.5257311
## [2,] -0.5257311 -0.8506508
eigen_values <- eigen_result$values
print("Nilai Eigen:")
## [1] "Nilai Eigen:"
print(eigen_values)
## [1] 3.618034 1.381966