new disp_pcorr option

git-svn-id: https://www.dynare.org/svn/dynare/trunk@2982 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
ratto 2009-09-24 17:19:14 +00:00
parent 290ea0d24e
commit e9a017b3fb
1 changed files with 7 additions and 1 deletions

View File

@ -1,4 +1,4 @@
function disp_identification(pdraws, idemodel, idemoments)
function disp_identification(pdraws, idemodel, idemoments, disp_pcorr)
% Copyright (C) 2008 Dynare Team
%
@ -19,6 +19,10 @@ function disp_identification(pdraws, idemodel, idemoments)
global bayestopt_
if nargin<4 | isempty(disp_pcorr),
disp_pcorr=0;
end
[SampleSize, npar] = size(pdraws);
jok = 0;
jokP = 0;
@ -83,6 +87,7 @@ dyntable('Multi collinearity in the model:',strvcat('param','min','mean','max'),
dyntable('Multi collinearity for moments in J:',strvcat('param','min','mean','max'), ...
strvcat(bayestopt_.name(kokJ)),[mminJ, mmeanJ, mmaxJ],10,10,6);
if disp_pcorr,
for j=1:length(kokP),
dyntable([bayestopt_.name{kokP(j)},' pairwise correlations in the model'],strvcat(' ','min','mean','max'), ...
strvcat(bayestopt_.name{jpM{j}}),[pminM{j}' pmeanM{j}' pmaxM{j}'],10,10,3);
@ -92,3 +97,4 @@ for j=1:length(kokPJ),
dyntable([bayestopt_.name{kokPJ(j)},' pairwise correlations in J moments'],strvcat(' ','min','mean','max'), ...
strvcat(bayestopt_.name{jpJ{j}}),[pminJ{j}' pmeanJ{j}' pmaxJ{j}'],10,10,3);
end
end