EIGEN VEKTOR (2)

installed.packages("Matrix")

##      Package LibPath Version Priority Depends Imports LinkingTo Suggests
##      Enhances License License_is_FOSS License_restricts_use OS_type Archs
##      MD5sum NeedsCompilation Built

A <- matrix(c(1, 2, 3, 4), nrow = 2)

eigen_result <- eigen(A)

eigen_vectors <- eigen_result$vectors
print("Eigenvektor:")

## [1] "Eigenvektor:"

print(eigen_vectors)

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

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

## [1] "Nilai Eigen:"

print(eigen_values)

## [1]  5.3722813 -0.3722813