EIGEN VEKTOR (3)

A <- matrix(c(2, 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.7071068 -0.7071068
## [2,] 0.7071068  0.7071068

eigen_values <- eigen_result$values
print("Nilai Eigen:")

## [1] "Nilai Eigen:"

print(eigen_values)

## [1] 3 1