Qas*_*wed 24
您可以尝试该函数qr("qr",因为它执行QR分解):
#define a matrix for this example
M <- matrix(data = rnorm(12), ncol = 3)
#run the function qr()
qr(M)$rank
#Alternative: load the Matrix package...
require(Matrix)
#...and run the function rankMatrix()
rankMatrix(M)[1]
Run Code Online (Sandbox Code Playgroud)