Commit f8575289 authored by adjemian's avatar adjemian
Browse files

Changed header text.

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1829 ac1d8469-bf42-47a9-8791-bf33cf982152
parent 0f1e8c81
function [Q,R] = qr2(X)
% function [Q,R] = qr2(X)
% This routine performs a qr decomposition of matrix X such that the
% diagonal scalars of the upper-triangular matrix R are positive. If X
% is a full (column) rank matrix, then R is also the cholesky
......@@ -8,10 +6,10 @@ function [Q,R] = qr2(X)
% & Schorfheides's identification scheme.
%
% INPUTS
% See matlab's documentation.
% See matlab's documentation for QR decomposition.
%
% OUTPUTS
% See matlab's documentation.
% See matlab's documentation for QR decomposition.
%
% ALGORITHM
% None.
......@@ -19,9 +17,8 @@ function [Q,R] = qr2(X)
% SPECIAL REQUIREMENTS
% None.
%
% part of DYNARE, copyright Dynare Team (2007)
% part of DYNARE, copyright Dynare Team (2006-2008)
% Gnu Public License.
[Q,R] = qr(X);
indx = find(diag(R)<0);
if ~isempty(indx)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment