Save prior structure (bayestopt_) in M_.dname/prior/definition.mat, if the prior is changed.

git-svn-id: https://www.dynare.org/svn/dynare/trunk@2754 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
stepan 2009-06-11 11:30:26 +00:00
parent cbbaf112e3
commit b71a7a83ed
1 changed files with 35 additions and 1 deletions

View File

@ -221,4 +221,38 @@ function [xparam1, estim_params_, bayestopt_, lb, ub, M_]=set_prior(estim_params
end
k = find(isnan(xparam1));
xparam1(k) = bayestopt_.p1(k);
xparam1(k) = bayestopt_.p1(k);
CheckPath('prior');
if exist([ M_.dname '/prior/definition.mat'])
bayestopt_old = load([M_.dname '/prior/definition.mat'],'bayestopt_');
prior_has_changed = 0;
if any(bayestopt_.p1-bayestopt_old.p1)
prior_has_changed = 1;
end
if any(bayestopt_.p2-bayestopt_old.p2)
prior_has_changed = 1;
end
if any(bayestopt_.p3-bayestopt_old.p3)
prior_has_changed = 1;
end
if any(bayestopt_.p4-bayestopt_old.p4)
prior_has_changed = 1;
end
if any(bayestopt_.p5-bayestopt_old.p5)
prior_has_changed = 1;
end
if any(bayestopt_.p6-bayestopt_old.p6)
prior_has_changed = 1;
end
if any(bayestopt_.p7-bayestopt_old.p7)
prior_has_changed = 1;
end
if prior_has_changed
delete([M_.dname '/prior/definition.mat']);
save([M_.dname '/prior/definition.mat'],'bayestopt_');
end
else
save([M_.dname '/prior/definition.mat'],'bayestopt_');
end