Correction of a bug in dynare_estimation.m
git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@460 ac1d8469-bf42-47a9-8791-bf33cf982152time-shift
parent
36eed29a91
commit
51798798db
|
@ -298,7 +298,8 @@ if any(bayestopt_.pshape > 0) & options_.posterior_mode_estimation
|
||||||
disp('standard deviation of shocks')
|
disp('standard deviation of shocks')
|
||||||
disp(tit1)
|
disp(tit1)
|
||||||
for i=1:nvx
|
for i=1:nvx
|
||||||
name = deblank(M_.exo_names(estim_params_.var_exo(i,1),:));
|
k = estim_params_.var_exo(i,1);
|
||||||
|
name = deblank(M_.exo_names(k,:));
|
||||||
disp(sprintf('%12s %7.3f %8.4f %7.4f %7.4f %4s %6.4f', ...
|
disp(sprintf('%12s %7.3f %8.4f %7.4f %7.4f %4s %6.4f', ...
|
||||||
name,bayestopt_.pmean(ip),xparam1(ip), ...
|
name,bayestopt_.pmean(ip),xparam1(ip), ...
|
||||||
stdh(ip),tstath(ip),pnames(bayestopt_.pshape(ip)+1,:), ...
|
stdh(ip),tstath(ip),pnames(bayestopt_.pshape(ip)+1,:), ...
|
||||||
|
@ -394,7 +395,8 @@ elseif ~any(bayestopt_.pshape > 0) & options_.posterior_mode_estimation
|
||||||
disp('standard deviation of shocks')
|
disp('standard deviation of shocks')
|
||||||
disp(tit1)
|
disp(tit1)
|
||||||
for i=1:nvx
|
for i=1:nvx
|
||||||
name = deblank(M_.exo_names(estim_params_.var_exo(i,1),:));
|
k = estim_params_.var_exo(i,1);
|
||||||
|
name = deblank(M_.exo_names(k,:));
|
||||||
disp(sprintf('%12s %8.4f %7.4f %7.4f',name,xparam1(ip),stdh(ip),tstath(ip)));
|
disp(sprintf('%12s %8.4f %7.4f %7.4f',name,xparam1(ip),stdh(ip),tstath(ip)));
|
||||||
M_.Sigma_e(k,k) = xparam1(ip)*xparam1(ip);
|
M_.Sigma_e(k,k) = xparam1(ip)*xparam1(ip);
|
||||||
eval(['oo_.mle_mode.shocks_std.' name ' = xparam1(ip);']);
|
eval(['oo_.mle_mode.shocks_std.' name ' = xparam1(ip);']);
|
||||||
|
|
|
@ -10,14 +10,14 @@ nvn = estim_params_.nvn;
|
||||||
ncx = estim_params_.ncx;
|
ncx = estim_params_.ncx;
|
||||||
ncx = estim_params_.ncn;
|
ncx = estim_params_.ncn;
|
||||||
|
|
||||||
if k <= estim_params_.nvx
|
if k <= nvx
|
||||||
vname = deblank(M_.exo_names(estim_params_.var_exo(k,1),:));
|
vname = deblank(M_.exo_names(estim_params_.var_exo(k,1),:));
|
||||||
nam = ['SE_',vname];
|
nam = ['SE_',vname];
|
||||||
if TeX
|
if TeX
|
||||||
tname = deblank(M_.exo_names_tex(estim_params_.var_exo(k,1),:));
|
tname = deblank(M_.exo_names_tex(estim_params_.var_exo(k,1),:));
|
||||||
texnam = ['$ SE_{' tname '} $'];
|
texnam = ['$ SE_{' tname '} $'];
|
||||||
end
|
end
|
||||||
elseif k <= (estim_params_.nvx+estim_params_.nvn)
|
elseif k <= (nvx+nvn)
|
||||||
vname = deblank(options_.varobs(estim_params_.var_endo(k-estim_params_.nvx,1),:));
|
vname = deblank(options_.varobs(estim_params_.var_endo(k-estim_params_.nvx,1),:));
|
||||||
nam=['SE_EOBS_',vname];
|
nam=['SE_EOBS_',vname];
|
||||||
if TeX
|
if TeX
|
||||||
|
|
Loading…
Reference in New Issue