Data605_Discussion4

Exercise C30

library(pracma)

## Warning: package 'pracma' was built under R version 3.4.4

v1<-matrix(c(2, -1, 5, 2, -4, 2, -10, 3), nrow = 2, byrow = TRUE)
v1

##      [,1] [,2] [,3] [,4]
## [1,]    2   -1    5    2
## [2,]   -4    2  -10    3

rref(v1)

##      [,1] [,2] [,3] [,4]
## [1,]    1 -0.5  2.5    0
## [2,]    0  0.0  0.0    1

v2<-matrix(c(2, -1, 5, 4, -4, 2, -10, -8), nrow = 2, byrow = TRUE)
v2

##      [,1] [,2] [,3] [,4]
## [1,]    2   -1    5    4
## [2,]   -4    2  -10   -8

rref(v2)

##      [,1] [,2] [,3] [,4]
## [1,]    1 -0.5  2.5    2
## [2,]    0  0.0  0.0    0