qrinv.mata

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· MATA 代码 · 共 21 行

*! version 1.0.0  27nov2004
version 9.0

mata:

numeric matrix qrinv(numeric matrix A, | rank, real scalar tol)
{
	numeric matrix Ainv

	if(isfleeting(A)) {
		rank =_qrinv(A,tol)
		return(A)
	}

	rank =_qrinv(Ainv=A,tol)
	return(Ainv)

}

end