new disp_pcorr option
git-svn-id: https://www.dynare.org/svn/dynare/trunk@2982 ac1d8469-bf42-47a9-8791-bf33cf982152time-shift
parent
290ea0d24e
commit
e9a017b3fb
|
@ -1,4 +1,4 @@
|
||||||
function disp_identification(pdraws, idemodel, idemoments)
|
function disp_identification(pdraws, idemodel, idemoments, disp_pcorr)
|
||||||
|
|
||||||
% Copyright (C) 2008 Dynare Team
|
% Copyright (C) 2008 Dynare Team
|
||||||
%
|
%
|
||||||
|
@ -19,6 +19,10 @@ function disp_identification(pdraws, idemodel, idemoments)
|
||||||
|
|
||||||
global bayestopt_
|
global bayestopt_
|
||||||
|
|
||||||
|
if nargin<4 | isempty(disp_pcorr),
|
||||||
|
disp_pcorr=0;
|
||||||
|
end
|
||||||
|
|
||||||
[SampleSize, npar] = size(pdraws);
|
[SampleSize, npar] = size(pdraws);
|
||||||
jok = 0;
|
jok = 0;
|
||||||
jokP = 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'), ...
|
dyntable('Multi collinearity for moments in J:',strvcat('param','min','mean','max'), ...
|
||||||
strvcat(bayestopt_.name(kokJ)),[mminJ, mmeanJ, mmaxJ],10,10,6);
|
strvcat(bayestopt_.name(kokJ)),[mminJ, mmeanJ, mmaxJ],10,10,6);
|
||||||
|
|
||||||
|
if disp_pcorr,
|
||||||
for j=1:length(kokP),
|
for j=1:length(kokP),
|
||||||
dyntable([bayestopt_.name{kokP(j)},' pairwise correlations in the model'],strvcat(' ','min','mean','max'), ...
|
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);
|
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'), ...
|
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);
|
strvcat(bayestopt_.name{jpJ{j}}),[pminJ{j}' pmeanJ{j}' pmaxJ{j}'],10,10,3);
|
||||||
end
|
end
|
||||||
|
end
|
||||||
|
|
Loading…
Reference in New Issue