Data 605 - Discussion Week 3

\(A = \begin{bmatrix} 1 & 2 & 1 & 0\\ 1 & 0 & 1 & 0\\ 2 & 1 & 1 & 0\\ 3 & 1 & 0 & 1 \end{bmatrix}\)

library(pracma)

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

##      [,1] [,2] [,3] [,4]
## [1,]    1    1    2    3
## [2,]    2    0    1    1
## [3,]    1    1    1    0
## [4,]    0    0    0    1

charpoly(c,info = FALSE)

## [1]  1 -3 -2  2  2