R：拡張された行列のランク

Question

拡張された行列のランクを得る方法はありますか？私はこの定理と依存性をテストしたい：

https://en.wikipedia.org/wiki/Rouch%C3%A9%E2%80%93Capelli_theorem

私はQR（）関数wihtビットを試してみましたが、運と。

Answer 1

A <- matrix(1:4, 2) 
A 
#  [,1] [,2] 
# [1,] 1 3 
# [2,] 2 4 

b <- matrix(5:6, 2) 
b 
#  [,1] 
# [1,] 5 
# [2,] 6 

qr(A)$rank 
# [1] 2 

aug <- cbind(A, b) 
aug 
#  [,1] [,2] [,3] 
# [1,] 1 3 5 
# [2,] 2 4 6 

qr(aug)$rank 
# [1] 2