data 605 wk2 discussion

C27 Page 278

C27 <- matrix(data = c(1,0,1,1,
                     2,2,-1,1,
                     2,1,3,0,
                     1,1,0,1), ncol=4, byrow=TRUE)
#Finding determinant
det(C27)

## [1] 4

C28 page 278

C28 <- matrix(data = c(1,0,1,1,
                     2,-1,-1,1,
                     2,5,3,0,
                     1,-1,0,1), ncol=4, byrow=TRUE)
#Find determinant
round(det(C28))

## [1] 0

C29 page 278

C29 <- matrix(data=c(2,3,0,2,1,
                     0,1,1,1,2,
                     0,0,1,2,3,
                     0,1,2,1,0,
                     0,0,0,1,2), ncol=5, byrow=TRUE)
#Find determinant
det(C29)

## [1] 2

C30 page 278

C30 <- matrix(data=c(2,1,1,0,1,
                     2,1,2,-1,1,
                     0,0,1,2,0,
                     1,0,3,1,1,
                     2,1,1,2,1), ncol=5, byrow=TRUE)
#Finding determinant 
det(C30)

## [1] 0