matriks <- matrix(c(1, 2, 3, 4), nrow = 2, ncol = 2)
matriks
##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4
vektor <- eigen(matriks)$vectors
vektor
##            [,1]       [,2]
## [1,] -0.5657675 -0.9093767
## [2,] -0.8245648  0.4159736
vektor_eigen <- eigen(matriks)$values
vektor_eigen
## [1]  5.3722813 -0.3722813
cat("Vektor:\n")
## Vektor:
print(vektor)
##            [,1]       [,2]
## [1,] -0.5657675 -0.9093767
## [2,] -0.8245648  0.4159736
cat("\nVektor Eigen:\n")
## 
## Vektor Eigen:
print(vektor_eigen)
## [1]  5.3722813 -0.3722813

Penjelasan singkat:

Matriks dimasukkan menggunakan fungsi matrix(), dengan elemen-elemen matriks diberikan dalam vektor c(1, 2, 3, 4). Menggunakan fungsi eigen() untuk menghitung vektor dan vektor eigen dari matriks. eigen(matriks)\(vectors memberikan vektor-vektor eigen dan eigen(matriks)\)values memberikan nilai-nilai eigen. Hasil vektor dan vektor eigen dicetak menggunakan fungsi print() dan cat(). Pastikan Anda memiliki paket R yang diperlukan untuk menjalankan kode di atas.