stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixes about computing pair-wise and multi-correlations for the Hessian case.

time-shift
Marco Ratto 2011-05-30 14:34:19 +02:00
parent 574f94eafa
commit 1e5e214503
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
matlab/identification_checks.m
View File

@ -65,14 +65,15 @@ if hess_flag==0,
McoJ(ind1(ii),:) = cosn([JJ1(:,ii),JJ1(:,find([1:1:size(JJ1,2)]~=ii))]);
end
else
deltaJ = sqrt(diag(JJ));
tildaJ = JJ./((deltaJ)*(deltaJ'));
McoJ(:,1)=(1-1./diag(inv(tildaJ)));
deltaJ = sqrt(diag(JJ(ind1,ind1)));
tildaJ = JJ(ind1,ind1)./((deltaJ)*(deltaJ'));
McoJ(ind1,1)=(1-1./diag(inv(tildaJ)));
rhoM=sqrt(1-McoJ);
% PcoJ=inv(tildaJ);
PcoJ=inv(JJ);
PcoJ=NaN(npar,npar);
PcoJ(ind1,ind1)=inv(JJ(ind1,ind1));
sd=sqrt(diag(PcoJ));
PcoJ = PcoJ./((sd)*(sd'));
PcoJ = abs(PcoJ./((sd)*(sd')));
end