R：增广矩阵的秩

有没有一种方法可以得到增广矩阵的秩。我想用这个定理来测试相关性：

---

我尝试了一点qr（）函数，但没有成功。

a
a可能想解释一下增广矩阵是如何在R中出现的。是的，这也是一个问题……我也不知道如何在增广矩阵中组合a和b。（所有术语都在wiki链接中解释）可能想解释一下增广矩阵是如何在R中出现的。是的，这也是一个问题……我也不知道如何在增广矩阵中组合A和b。（所有术语都在wiki链接中解释）
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