library("knitr")
mat = matrix(c (-1,2,-6,6), ncol=2 , nrow=2, byrow=T)
print(mat)
## [,1] [,2]
## [1,] -1 2
## [2,] -6 6
include_graphics('https://github.com/mlforsachid/MSDSQ2Data605/blob/master/Week3/Discussion/C19.jpg?raw=true')
Verify using R
r eigen.stat = eigen(mat) print("Eigen Values are...")
## [1] "Eigen Values are..."
r print(eigen.stat$value)
## [1] 3 2
r print("Eigen Vectors are...")
## [1] "Eigen Vectors are..."
r print(eigen.stat$vectors[1:2])
## [1] -0.4472136 -0.8944272
r print(eigen.stat$vectors[3:4])
## [1] -0.5547002 -0.8320503