diff --git a/matlab/dynare_identification.m b/matlab/dynare_identification.m
index 91553f7354bae7744ae4397b08c35687d366cf35..d111be90615faa8e5f0d7c459b652d335cc0acbc 100644
--- a/matlab/dynare_identification.m
+++ b/matlab/dynare_identification.m
@@ -291,7 +291,7 @@ if iload <=0,
disp('Testing current parameter values')
end
[idehess_point, idemoments_point, idemodel_point, idelre_point, derivatives_info_point, info, options_ident] = ...
- identification_analysis(params,indx,indexo,options_ident,dataset_, dataset_info, prior_exist, name_tex,1);
+ identification_analysis(params,indx,indexo,options_ident,dataset_, dataset_info, prior_exist, name_tex,1,parameters);
if info(1)~=0,
skipline()
disp('----------- ')
@@ -334,7 +334,7 @@ if iload <=0,
kk=kk+1;
params = prior_draw();
[idehess_point, idemoments_point, idemodel_point, idelre_point, derivatives_info_point, info, options_ident] = ...
- identification_analysis(params,indx,indexo,options_ident,dataset_,dataset_info, prior_exist, name_tex,1);
+ identification_analysis(params,indx,indexo,options_ident,dataset_,dataset_info, prior_exist, name_tex,1,'Random_prior_params');
end
end
if info(1)
@@ -558,7 +558,7 @@ if SampleSize > 1,
disp(['Testing ',tittxt, '. Press ENTER']), pause(5),
if ~iload,
[idehess_max, idemoments_max, idemodel_max, idelre_max, derivatives_info_max, info_max, options_ident] = ...
- identification_analysis(pdraws(jmax,:),indx,indexo,options_ident,dataset_,dataset_info, prior_exist, name_tex,1);
+ identification_analysis(pdraws(jmax,:),indx,indexo,options_ident,dataset_,dataset_info, prior_exist, name_tex,1,tittxt);
save([IdentifDirectoryName '/' M_.fname '_identif.mat'], 'idehess_max', 'idemoments_max','idemodel_max', 'idelre_max', 'jmax', '-append');
end
disp_identification(pdraws(jmax,:), idemodel_max, idemoments_max, name,1);
@@ -573,7 +573,7 @@ if SampleSize > 1,
disp(['Testing ',tittxt, '. Press ENTER']), pause(5),
if ~iload,
[idehess_min, idemoments_min, idemodel_min, idelre_min, derivatives_info_min, info_min, options_ident] = ...
- identification_analysis(pdraws(jmin,:),indx,indexo,options_ident,dataset_, dataset_info, prior_exist, name_tex,1);
+ identification_analysis(pdraws(jmin,:),indx,indexo,options_ident,dataset_, dataset_info, prior_exist, name_tex,1,tittxt);
save([IdentifDirectoryName '/' M_.fname '_identif.mat'], 'idehess_min', 'idemoments_min','idemodel_min', 'idelre_min', 'jmin', '-append');
end
disp_identification(pdraws(jmin,:), idemodel_min, idemoments_min, name,1);
@@ -588,7 +588,7 @@ if SampleSize > 1,
disp(['Testing ',tittxt, '. Press ENTER']), pause(5),
if ~iload,
[idehess_(j), idemoments_(j), idemodel_(j), idelre_(j), derivatives_info_(j), info_resolve, options_ident] = ...
- identification_analysis(pdraws(jcrit(j),:),indx,indexo,options_ident,dataset_, dataset_info, prior_exist, name_tex,1);
+ identification_analysis(pdraws(jcrit(j),:),indx,indexo,options_ident,dataset_, dataset_info, prior_exist, name_tex,1,tittxt);
end
disp_identification(pdraws(jcrit(j),:), idemodel_(j), idemoments_(j), name,1);
close all,
diff --git a/matlab/ident_bruteforce.m b/matlab/ident_bruteforce.m
index b9d35088dc3f757aac92a65fba4e71c216a2f758..3e3f58ad8108a7b008c6e7f1a6ff7022f3300b68 100644
--- a/matlab/ident_bruteforce.m
+++ b/matlab/ident_bruteforce.m
@@ -1,10 +1,18 @@
-function [pars, cosnJ] = ident_bruteforce(J,n,TeX, pnames_TeX)
-% function [pars, cosnJ] = ident_bruteforce(J,n,TeX, pnames_TeX)
+function [pars, cosnJ] = ident_bruteforce(J,n,TeX, pnames_TeX,tittxt)
+% function [pars, cosnJ] = ident_bruteforce(J,n,TeX, pnames_TeX,tittxt)
%
% given the Jacobian matrix J of moment derivatives w.r.t. parameters
% computes, for each column of J, the groups of columns from 1 to n that
% can repliate at best the derivatives of that column
%
+% INPUTS
+% J [double] (normalized) Jacobian matrix of moment derivatives
+% n [scalar] maximum size of covariance groups tested
+% TeX [scalar] Indicator whether TeX-output is requested
+% pnames_TeX [char] list of tex names
+% tittxt [string] string indicating the title text for
+% graphs and figures
+%
% OUTPUTS
% pars : cell array with groupf of params for each column of J for 1 to n
% cosnJ : the cosn of each column with the selected group of columns
@@ -36,8 +44,12 @@ if nargin<2 || isempty(n)
end
if nargin<3 || isempty(TeX)
TeX = 0; % max n-tuple
+ tittxt='';
end
+tittxt1=regexprep(tittxt, ' ', '_');
+tittxt1=strrep(tittxt1, '.', '');
+
cosnJ=zeros(k,n);
pars{k,n}=[];
for ll = 1:n,
@@ -66,18 +78,18 @@ for ll = 1:n,
end
dyn_waitbar_close(h);
if TeX
- filename = [OutputDirectoryName '/' M_.fname '_collinearity_patterns' int2str(ll) '.tex'];
+ filename = [OutputDirectoryName '/' M_.fname '_collin_patterns_',tittxt1,'_' int2str(ll) '.tex'];
fidTeX = fopen(filename,'w');
fprintf(fidTeX,'%% TeX-table generated by ident_bruteforce (Dynare).\n');
- fprintf(fidTeX,['%% Collinearity patterns with ',int2str(ll),' parameter(s)\n']);
+ fprintf(fidTeX,['%% Collinearity patterns with ',int2str(ll),' parameter(s): ',tittxt,'\n']);
fprintf(fidTeX,['%% ' datestr(now,0)]);
fprintf(fidTeX,' \n');
fprintf(fidTeX,' \n');
fprintf(fidTeX,'{\\tiny \n');
fprintf(fidTeX,'\\begin{longtable}{llc} \n');
- fprintf(fidTeX,['\\caption{Collinearity patterns with ',int2str(ll),' parameter(s)}\n ']);
- fprintf(fidTeX,['\\label{Table:CollinearityPatterns:',int2str(ll),'}\\\\\n']);
+ fprintf(fidTeX,['\\caption{Collinearity patterns with ',int2str(ll),' parameter(s): ',tittxt,'}\n ']);
+ fprintf(fidTeX,['\\label{Table:CollinearityPatterns:',tittxt1,':',int2str(ll),'}\\\\\n']);
fprintf(fidTeX,'\\toprule \n');
fprintf(fidTeX,' Parameter & Explanatory & cosn \\\\ \n');
fprintf(fidTeX,' & parameter(s) & \\\\ \n');
diff --git a/matlab/identification_analysis.m b/matlab/identification_analysis.m
index a4b03689cfc53a92813046d80eb412a8e1de8377..53fc6ad33257a1f47c0ed264e5ebe85d96dcc7ec 100644
--- a/matlab/identification_analysis.m
+++ b/matlab/identification_analysis.m
@@ -1,5 +1,5 @@
-function [ide_hess, ide_moments, ide_model, ide_lre, derivatives_info, info, options_ident] = identification_analysis(params,indx,indexo,options_ident,dataset_,dataset_info, prior_exist, name_tex, init)
-% function [ide_hess, ide_moments, ide_model, ide_lre, derivatives_info, info] = identification_analysis(params,indx,indexo,options_ident,data_info, prior_exist, name_tex, init)
+function [ide_hess, ide_moments, ide_model, ide_lre, derivatives_info, info, options_ident] = identification_analysis(params,indx,indexo,options_ident,dataset_,dataset_info, prior_exist,name_tex,init,tittxt)
+% function [ide_hess, ide_moments, ide_model, ide_lre, derivatives_info, info] = identification_analysis(params,indx,indexo,options_ident,data_info, prior_exist,name_tex,init,analyis_type)
% given the parameter vector params, wraps all identification analyses
%
% INPUTS
@@ -14,6 +14,8 @@ function [ide_hess, ide_moments, ide_model, ide_lre, derivatives_info, info, opt
% =0 when prior is not defined and indentification is checked for all params and shocks
% o name_tex [char] list of tex names
% o init [integer] flag for initialization of persistent vars
+% o tittxt [string] string indicating the title text for
+% graphs and figures
%
% OUTPUTS
% o ide_hess [structure] identification results using Asymptotic Hessian
@@ -348,6 +350,6 @@ if info(1)==0,
indok = find(max(ide_moments.indno,[],1)==0);
if advanced,
- [ide_moments.pars, ide_moments.cosnJ] = ident_bruteforce(JJ(indJJ,:)./normJ,max_dim_cova_group,options_.TeX,name_tex);
+ [ide_moments.pars, ide_moments.cosnJ] = ident_bruteforce(JJ(indJJ,:)./normJ,max_dim_cova_group,options_.TeX,name_tex,tittxt);
end
end