Commit a20bc07f authored by Houtan Bastani's avatar Houtan Bastani
Browse files

replace deprecated Matlab function strvcat with char

parent 47ca9b62
......@@ -137,10 +137,6 @@ for i = 1:pages
h = figure('Name','MCMC univariate diagnostic (Brooks and Gelman,1998)');
end
boxplot = 1;
if TeX
NAMES = [];
TEXNAMES = [];
end
for j = 1:3 % Loop over parameters
k = k+1;
[nam,namtex] = get_the_name(k,TeX);
......@@ -159,8 +155,13 @@ for i = 1:pages
namnam = [nam , ' (m3)'];
end
if TeX
NAMES = strvcat(NAMES,deblank(namnam));
TEXNAMES = strvcat(TEXNAMES,deblank(namtex));
if j==1
NAMES = deblank(namnam);
TEXNAMES = deblank(namtex);
else
NAMES = char(NAMES,deblank(namnam));
TEXNAMES = char(TEXNAMES,deblank(namtex));
end
end
subplot(3,3,boxplot);
plot(xx,plt1,'-b'); % Pooled
......@@ -205,10 +206,6 @@ if reste
nr = 2;
nc = 3;
end
if TeX
NAMES = [];
TEXNAMES = [];
end
if options_.nograph
h = figure('Name','MCMC univariate diagnostic (Brooks and Gelman, 1998)','Visible','off');
else
......@@ -233,8 +230,13 @@ if reste
namnam = [nam , ' (m3)'];
end
if TeX
NAMES = strvcat(NAMES,deblank(namnam));
TEXNAMES = strvcat(TEXNAMES,deblank(namtex));
if j==1
NAMES = deblank(namnam);
TEXNAMES = deblank(namtex);
else
NAMES = char(NAMES,deblank(namnam));
TEXNAMES = char(TEXNAMES,deblank(namtex));
end
end
subplot(nr,nc,boxplot);
plot(xx,plt1,'-b'); % Pooled
......@@ -287,7 +289,6 @@ if TeX
fprintf(fidTeX,'%% TeX eps-loader file generated by McmcDiagnostics.m (Dynare).\n');
fprintf(fidTeX,['%% ' datestr(now,0) '\n']);
fprintf(fidTeX,' \n');
NAMES = [];
end
tmp = zeros(NumberOfDraws*nblck,3);
MDIAG = zeros(NumberOfLines,6);
......@@ -352,7 +353,11 @@ for crit = 1:3
namnam = 'm3';
end
if TeX
NAMES = strvcat(NAMES,namnam);
if crit == 1
NAMES = deblank(namnam);
else
NAMES = char(NAMES,deblank(namnam));
end
end
subplot(3,1,boxplot);
plot(xx,plt1,'-b'); % Pooled
......
......@@ -16,7 +16,7 @@ function oo_ = PlotPosteriorDistributions(estim_params_, M_, options_, bayestopt
% SPECIAL REQUIREMENTS
% none
% Copyright (C) 2005-2008 Dynare Team
% Copyright (C) 2005-2010 Dynare Team
%
% This file is part of Dynare.
%
......@@ -69,16 +69,17 @@ for i=1:npar
hfig = figure('Name',figurename);
end
end
[nam,texnam] = get_the_name(i,TeX);
if subplotnum == 1
NAMES = nam;
if TeX
TeXNAMES = [];
TeXNAMES = texnam;
end
else
NAMES = char(NAMES,nam);
if TeX
TeXNAMES = char(TeXNAMES,texnam);
end
NAMES = [];
end
[nam,texnam] = get_the_name(i,TeX);
NAMES = strvcat(NAMES,nam);
if TeX
TeXNAMES = strvcat(TeXNAMES,texnam);
end
[x2,f2,abscissa,dens,binf2,bsup2] = draw_prior_density(i,bayestopt_);
top2 = max(f2);
......
......@@ -254,9 +254,12 @@ DistribIRF = zeros(options_.irf,9,nvar,M_.exo_nbr);
HPDIRF = zeros(options_.irf,2,nvar,M_.exo_nbr);
if options_.TeX
varlist_TeX = [];
for i=1:nvar
varlist_TeX = strvcat(varlist_TeX,M_.endo_names_tex(IndxVariables(i),:));
if i==1
varlist_TeX = M_.endo_names_tex(IndxVariables(i),:);
else
varlist_TeX = char(varlist_TeX,M_.endo_names_tex(IndxVariables(i),:));
end
end
end
......@@ -379,10 +382,15 @@ if options_.TeX
if max(abs(MeanIRF(:,j,i))) > 10^(-6)
name = deblank(varlist(j,:));
NAMES = strvcat(NAMES,name);
texname = deblank(varlist_TeX(j,:));
TEXNAMES = strvcat(TEXNAMES,['$' texname '$']);
if j==1
NAMES = name;
TEXNAMES = ['$' texname '$'];
else
NAMES = char(NAMES,name);
TEXNAMES = char(TEXNAMES,['$' texname '$']);
end
end
end
......
......@@ -89,7 +89,6 @@ OutputFileName={};
subplotnum = 0;
for i=fpar:npar,
NAMES = [];
figunumber = 0;
for j=1:nvar
......@@ -143,7 +142,6 @@ for i=fpar:npar,
hold off
end
name = deblank(varlist(j,:));
NAMES = strvcat(NAMES,name);
title(name,'Interpreter','none')
end
......
function disp_identification(pdraws, idemodel, idemoments, disp_pcorr)
% Copyright (C) 2008 Dynare Team
% Copyright (C) 2008-2010 Dynare Team
%
% This file is part of Dynare.
%
......@@ -89,8 +89,8 @@ for j=1:npar,
end
dyntable('Multi collinearity in the model:',strvcat('param','min','mean','max'), ...
strvcat(bayestopt_.name(kok)),[mmin, mmean, mmax],10,10,6);
dyntable('Multi collinearity in the model:',char('param','min','mean','max'), ...
char(bayestopt_.name(kok)),[mmin, mmean, mmax],10,10,6);
disp(' ')
for j=1:npar,
iweak = length(find(idemodel.Mco(j,:)'>(1-1.e-10)));
......@@ -114,8 +114,8 @@ for j=1:npar,
end
disp(' ')
dyntable('Multi collinearity for moments in J:',strvcat('param','min','mean','max'), ...
strvcat(bayestopt_.name(kokJ)),[mminJ, mmeanJ, mmaxJ],10,10,6);
dyntable('Multi collinearity for moments in J:',char('param','min','mean','max'), ...
char(bayestopt_.name(kokJ)),[mminJ, mmeanJ, mmaxJ],10,10,6);
disp(' ')
for j=1:npar,
iweak = length(find(idemoments.Mco(j,:)'>(1-1.e-10)));
......@@ -141,12 +141,12 @@ disp(' ')
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);
dyntable([bayestopt_.name{kokP(j)},' pairwise correlations in the model'],char(' ','min','mean','max'), ...
char(bayestopt_.name{jpM{j}}),[pminM{j}' pmeanM{j}' pmaxM{j}'],10,10,3);
end
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);
dyntable([bayestopt_.name{kokPJ(j)},' pairwise correlations in J moments'],char(' ','min','mean','max'), ...
char(bayestopt_.name{jpJ{j}}),[pminJ{j}' pmeanJ{j}' pmaxJ{j}'],10,10,3);
end
end
......@@ -7,7 +7,7 @@ function disp_model_summary(M,dr)
% M [matlab structure] Definition of the model.
% dr [matlab structure] Decision rules
%
% Copyright (C) 2001-2009 Dynare Team
% Copyright (C) 2001-2010 Dynare Team
%
% This file is part of Dynare.
%
......@@ -36,7 +36,7 @@ disp([' Number of jumpers: ' ...
disp([' Number of static variables: ' int2str(dr.nstatic)])
my_title='MATRIX OF COVARIANCE OF EXOGENOUS SHOCKS';
labels = deblank(M.exo_names);
headers = strvcat('Variables',labels);
headers = char('Variables',labels);
lh = size(labels,2)+2;
dyntable(my_title,headers,labels,M.Sigma_e,lh,10,6);
function disp_moments(y,var_list)
% Displays moments of simulated variables
% Copyright (C) 2001-2009 Dynare Team
% Copyright (C) 2001-2010 Dynare Team
%
% This file is part of Dynare.
%
......@@ -62,7 +62,7 @@ if options_.nomoments == 0
title = [title ' (HP filter, lambda = ' ...
int2str(options_.hp_filter) ')'];
end
headers=strvcat('VARIABLE','MEAN','STD. DEV.','VARIANCE','SKEWNESS', ...
headers=char('VARIABLE','MEAN','STD. DEV.','VARIANCE','SKEWNESS', ...
'KURTOSIS');
dyntable(title,headers,labels,z,size(labels,2)+2,16,6);
end
......@@ -74,7 +74,7 @@ if options_.nocorr == 0
title = [title ' (HP filter, lambda = ' ...
int2str(options_.hp_filter) ')'];
end
headers = strvcat('VARIABLE',M_.endo_names(ivar,:));
headers = char('VARIABLE',M_.endo_names(ivar,:));
dyntable(title,headers,labels,corr,size(labels,2)+2,8,4);
end
......@@ -92,7 +92,7 @@ if ar > 0
title = [title ' (HP filter, lambda = ' ...
int2str(options_.hp_filter) ')'];
end
headers = strvcat('VARIABLE',int2str([1:ar]'));
headers = char('VARIABLE',int2str([1:ar]'));
dyntable(title,headers,labels,autocorr,size(labels,2)+2,8,4);
end
......
function disp_th_moments(dr,var_list)
% Display theoretical moments of variables
% Copyright (C) 2001-2009 Dynare Team
% Copyright (C) 2001-2010 Dynare Team
%
% This file is part of Dynare.
%
......@@ -57,7 +57,7 @@ if ~options_.noprint %options_.nomoments == 0
if options_.hp_filter
title = [title ' (HP filter, lambda = ' int2str(options_.hp_filter) ')'];
end
headers=strvcat('VARIABLE','MEAN','STD. DEV.','VARIANCE');
headers=char('VARIABLE','MEAN','STD. DEV.','VARIANCE');
labels = deblank(M_.endo_names(ivar,:));
lh = size(labels,2)+2;
dyntable(title,headers,labels,z,lh,11,4);
......@@ -70,7 +70,7 @@ if ~options_.noprint %options_.nomoments == 0
end
headers = M_.exo_names;
headers(M_.exo_names_orig_ord,:) = headers;
headers = strvcat(' ',headers);
headers = char(' ',headers);
lh = size(deblank(M_.endo_names(ivar(stationary_vars),:)),2)+2;
dyntable(title,headers,deblank(M_.endo_names(ivar(stationary_vars), ...
:)),100*oo_.gamma_y{options_.ar+2}(stationary_vars,:),lh,8,2);
......@@ -93,7 +93,7 @@ if options_.nocorr == 0
title = [title ' (HP filter, lambda = ' int2str(options_.hp_filter) ')'];
end
labels = deblank(M_.endo_names(ivar(i1),:));
headers = strvcat('Variables',labels);
headers = char('Variables',labels);
lh = size(labels,2)+2;
dyntable(title,headers,labels,corr,lh,8,4);
end
......@@ -111,7 +111,7 @@ if options_.nocorr == 0
title = [title ' (HP filter, lambda = ' int2str(options_.hp_filter) ')'];
end
labels = deblank(M_.endo_names(ivar(i1),:));
headers = strvcat('Order ',int2str([1:options_.ar]'));
headers = char('Order ',int2str([1:options_.ar]'));
lh = size(labels,2)+2;
dyntable(title,headers,labels,z,lh,8,4);
end
......
......@@ -65,7 +65,7 @@ for i=1:length(Steps)
if options_.noprint == 0
headers = M_.exo_names;
headers(M_.exo_names_orig_ord,:) = headers;
headers = strvcat(' ',headers);
headers = char(' ',headers);
lh = size(deblank(M_.endo_names(SubsetOfVariables,:)),2)+2;
dyntable('',headers,...
deblank(M_.endo_names(SubsetOfVariables,:)),...
......
......@@ -30,7 +30,7 @@ function [dr,info,M_,options_,oo_] = dr1_sparse(dr,task,M_,options_,oo_)
% none.
%
% Copyright (C) 1996-2009 Dynare Team
% Copyright (C) 1996-2010 Dynare Team
%
% This file is part of Dynare.
%
......@@ -175,7 +175,7 @@ if options_.ramsey_policy
% $$$ M_.maximum_lead = M_.maximum_lag;
% $$$ M_.maximum_endo_lead = M_.maximum_lag;
% $$$
% $$$ M_.endo_names = strvcat(M_.orig_model.endo_names, M_.endo_names(endo_nbr1+k,:));
% $$$ M_.endo_names = char(M_.orig_model.endo_names, M_.endo_names(endo_nbr1+k,:));
% $$$ M_.endo_nbr = endo_nbr1+length(k);
% $$$ end
else
......
......@@ -13,7 +13,7 @@ function [J,M_] = dyn_ramsey_dynamic_(ys,lbar,M_,options_,oo_,it_)
% SPECIAL REQUIREMENTS
% none
% Copyright (C) 2003-2009 Dynare Team
% Copyright (C) 2003-2010 Dynare Team
%
% This file is part of Dynare.
%
......@@ -84,10 +84,10 @@ max_leadlag1 = max_lead1;
% adding new variables names
endo_names1 = endo_names;
% adding shocks to endogenous variables
endo_names1 = strvcat(endo_names1, exo_names);
endo_names1 = char(endo_names1, exo_names);
% adding multipliers names
for i=1:mult_nbr;
endo_names1 = strvcat(endo_names1,['mult_' int2str(i)]);
endo_names1 = char(endo_names1,['mult_' int2str(i)]);
end
% expanding matrix of lead/lag incidence
......
......@@ -12,7 +12,7 @@ function dynare_estimation_1(var_list_,dname)
% SPECIAL REQUIREMENTS
% none
% Copyright (C) 2003-2009, 2010 Dynare Team
% Copyright (C) 2003-2010 Dynare Team
%
% This file is part of Dynare.
%
......@@ -1171,14 +1171,22 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
hold off
xlim([1 gend])
name = deblank(M_.exo_names(i,:));
NAMES = strvcat(NAMES,name);
if isempty(NAMES)
NAMES = name;
else
NAMES = char(NAMES,name);
end
if ~isempty(options_.XTick)
set(gca,'XTick',options_.XTick)
set(gca,'XTickLabel',options_.XTickLabel)
end
if options_.TeX
texname = M_.exo_names_tex(i,1);
TeXNAMES = strvcat(TeXNAMES,['$ ' deblank(texname) ' $']);
if isempty(TeXNAMES)
TeXNAMES = ['$ ' deblank(texname) ' $'];
else
TeXNAMES = char(TeXNAMES,['$ ' deblank(texname) ' $']);
end
end
title(name,'Interpreter','none')
eval(['oo_.SmoothedShocks.' deblank(M_.exo_names(i,:)) ' = innov(i,:)'';']);
......@@ -1217,7 +1225,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
plot(1:gend,innov(k,:),'-k','linewidth',1)
hold off
name = deblank(M_.exo_names(k,:));
NAMES = strvcat(NAMES,name);
if isempty(NAMES)
NAMES = name;
else
NAMES = char(NAMES,name);
end
if ~isempty(options_.XTick)
set(gca,'XTick',options_.XTick)
set(gca,'XTickLabel',options_.XTickLabel)
......@@ -1225,7 +1237,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
xlim([1 gend])
if options_.TeX
texname = M_.exo_names_tex(k,:);
TeXNAMES = strvcat(TeXNAMES,['$ ' deblank(texname) ' $']);
if isempty(TeXNAMES)
TeXNAMES = ['$ ' deblank(texname) ' $'];
else
TeXNAMES = char(TeXNAMES,['$ ' deblank(texname) ' $']);
end
end
title(name,'Interpreter','none')
eval(['oo_.SmoothedShocks.' deblank(name) ' = innov(k,:)'';']);
......@@ -1265,7 +1281,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
plot(1:gend,innov(k,:),'-k','linewidth',1)
hold off
name = deblank(M_.exo_names(k,:));
NAMES = strvcat(NAMES,name);
if isempty(NAMES)
NAMES = name;
else
NAMES = char(NAMES,name);
end
if ~isempty(options_.XTick)
set(gca,'XTick',options_.XTick)
set(gca,'XTickLabel',options_.XTickLabel)
......@@ -1273,7 +1293,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
xlim([1 gend])
if options_.TeX
texname = M_.exo_names_tex(k,:);
TeXNAMES = strvcat(TeXNAMES,['$ ' deblank(texname) ' $']);
if isempty(TeXNAMES)
TeXNAMES = ['$ ' deblank(texname) ' $'];
else
TeXNAMES = char(TeXNAMES,['$ ' deblank(texname) ' $']);
end
end
title(name,'Interpreter','none')
eval(['oo_.SmoothedShocks.' deblank(name) ' = innov(k,:)'';']);
......@@ -1345,7 +1369,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
plot([1 gend],[0 0],'-r','linewidth',.5)
hold off
name = deblank(options_.varobs(index(i),:));
NAMES = strvcat(NAMES,name);
if isempty(NAMES)
NAMES = name;
else
NAMES = char(NAMES,name);
end
if ~isempty(options_.XTick)
set(gca,'XTick',options_.XTick)
set(gca,'XTickLabel',options_.XTickLabel)
......@@ -1353,7 +1381,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
if options_.TeX
idx = strmatch(options_.varobs(indx(i),:),M_.endo_names,'exact');
texname = M_.endo_names_tex(idx,:);
TeXNAMES = strvcat(TeXNAMES,['$ ' deblank(texname) ' $']);
if isempty(TeXNAMES)
TeXNAMES = ['$ ' deblank(texname) ' $'];
else
TeXNAMES = char(TeXNAMES,['$ ' deblank(texname) ' $']);
end
end
title(name,'Interpreter','none')
end
......@@ -1391,7 +1423,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
plot(1:gend,measurement_error(index(k),:),'-k','linewidth',1)
hold off
name = deblank(options_.varobs(index(k),:));
NAMES = strvcat(NAMES,name);
if isempty(NAMES)
NAMES = name;
else
NAMES = char(NAMES,name);
end
if ~isempty(options_.XTick)
set(gca,'XTick',options_.XTick)
set(gca,'XTickLabel',options_.XTickLabel)
......@@ -1399,8 +1435,12 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
if options_.TeX
idx = strmatch(options_.varobs(k),M_.endo_names,'exact');
texname = M_.endo_names_tex(idx,:);
TeXNAMES = strvcat(TeXNAMES,['$ ' deblank(texname) ' $']);
end
if isempty(TeXNAMES)
TeXNAMES = ['$ ' deblank(texname) ' $'];
else
TeXNAMES = char(TeXNAMES,['$ ' deblank(texname) ' $']);
end
end
title(name,'Interpreter','none')
end
eval(['print -depsc2 ' M_.fname '_SmoothedObservationErrors' int2str(plt) '.eps']);
......@@ -1438,7 +1478,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
plot(1:gend,measurement_error(index(k),:),'-k','linewidth',1)
hold off
name = deblank(options_.varobs(index(k),:));
NAMES = strvcat(NAMES,name);
if isempty(NAMES)
NAMES = name;
else
NAMES = char(NAMES,name);
end
if ~isempty(options_.XTick)
set(gca,'XTick',options_.XTick)
set(gca,'XTickLabel',options_.XTickLabel)
......@@ -1446,7 +1490,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
if options_.TeX
idx = strmatch(options_.varobs(index(k)),M_.endo_names,'exact');
texname = M_.endo_names_tex(idx,:);
TeXNAMES = strvcat(TeXNAMES,['$ ' deblank(texname) ' $']);
if isempty(TeXNAMES)
TeXNAMES = ['$ ' deblank(texname) ' $'];
else
TeXNAMES = char(TeXNAMES,['$ ' deblank(texname) ' $']);
end
end
title(name,'Interpreter','none');
end
......@@ -1493,7 +1541,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
plot(1:gend,rawdata(:,i),'-k','linewidth',1)
hold off
name = deblank(options_.varobs(i,:));
NAMES = strvcat(NAMES,name);
if isempty(NAMES)
NAMES = name;
else
NAMES = char(NAMES,name);
end
if ~isempty(options_.XTick)
set(gca,'XTick',options_.XTick)
set(gca,'XTickLabel',options_.XTickLabel)
......@@ -1502,7 +1554,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
if options_.TeX
idx = strmatch(options_.varobs(i),M_.endo_names,'exact');
texname = M_.endo_names_tex(idx,:);
TeXNAMES = strvcat(TeXNAMES,['$ ' deblank(texname) ' $']);
if isempty(TeXNAMES)
TeXNAMES = ['$ ' deblank(texname) ' $'];
else
TeXNAMES = char(TeXNAMES,['$ ' deblank(texname) ' $']);
end
end
title(name,'Interpreter','none')
end
......@@ -1540,7 +1596,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
plot(1:gend,rawdata(:,k),'-k','linewidth',1)
hold off
name = deblank(options_.varobs(k,:));
NAMES = strvcat(NAMES,name);
if isempty(NAMES)
NAMES = name;
else
NAMES = char(NAMES,name);
end
if ~isempty(options_.XTick)
set(gca,'XTick',options_.XTick)
set(gca,'XTickLabel',options_.XTickLabel)
......@@ -1549,7 +1609,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
if options_.TeX
idx = strmatch(options_.varobs(k),M_.endo_names,'exact');
texname = M_.endo_names_tex(idx,:);
TeXNAMES = strvcat(TeXNAMES,['$ ' deblank(texname) ' $']);
if isempty(TeXNAMES)
TeXNAMES = ['$ ' deblank(texname) ' $'];
else
TeXNAMES = char(TeXNAMES,['$ ' deblank(texname) ' $']);
end
end
title(name,'Interpreter','none')
end
......@@ -1588,7 +1652,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
plot(1:gend,rawdata(:,k),'-k','linewidth',1)
hold off
name = deblank(options_.varobs(k,:));
NAMES = strvcat(NAMES,name);
if isempty(NAMES)
NAMES = name;
else
NAMES = char(NAMES,name);
end
if ~isempty(options_.XTick)
set(gca,'XTick',options_.XTick)
set(gca,'XTickLabel',options_.XTickLabel)
......@@ -1597,7 +1665,11 @@ if (~((any(bayestopt_.pshape > 0) & options_.mh_replic) | (any(bayestopt_.pshape
if options_.TeX
idx = strmatch(options_.varobs(i),M_.endo_names,'exact');
texname = M_.endo_names_tex(idx,:);
TeXNAMES = strvcat(TeXNAMES,['$ ' deblank(texname) ' $']);
if isempty(TeXNAMES)
TeXNAMES = ['$ ' deblank(texname) ' $'];
else
TeXNAMES = char(TeXNAMES,['$ ' deblank(texname) ' $']);
end
end
title(name,'Interpreter','none');
end
......
function dyntable(title,headers,labels,values,label_width,val_width, ...
val_precis)
% Copyright (C) 2002-2009 Dynare Team
% Copyright (C) 2002-2010 Dynare Team
%
% This file is part of Dynare.
%
......@@ -24,7 +24,7 @@ if options_.noprint
return
end
label_width = max(size(deblank(strvcat(headers(1,:),labels)),2)+2, ...
label_width = max(size(deblank(char(headers(1,:),labels)),2)+2, ...