DATA 605 EXERCISE FOR DISCUSSION

Page 354 Eigenvalues C29 ??? a <- magic(5) A <- charpoly(a, info = TRUE

A <- matrix(c(
    2,0,0,0,0,
    3,1,0,1,0,
    0,1,1,2,0,
    1,2,3,0,2
    
),5,5)
A

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

det(A)

## [1] 0

Determinant of A is 0