33.13 矩阵求秩

qr(A)$rank # or qr.default(A)$rank
## [1] 2