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

added CheckPath.m 

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@471 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
adjemian 2005-10-01 09:17:40 +00:00
parent a7c77a4a38
commit b3fb320b74
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
matlab/CheckPath.m Normal file
View File

@ -0,0 +1,9 @@
function DirectoryName = CheckPath(type)
% 06-03-2005
global M_
DirectoryName = [ M_.dname '\' type ];
if ~isdir(DirectoryName)
system([ 'md ' DirectoryName]);
end

6
matlab/irf.m
View File

@ -17,7 +17,7 @@ function y_=irf(dr, e1, long_, drop_, replic, iorder)
else
% eliminate shocks with 0 variance
i_exo_var = setdiff([1:M_.exo_nbr],find(diag(M_.Sigma_e) == 0));
i_exo_var = setdiff([1:M_.exo_nbr],find(diag(M_.Sigma_e) == 0 ));
nxs = length(i_exo_var);
ex1_ = zeros(long_+drop_+M_.maximum_lag,M_.exo_nbr);
ex2_ = ex1_;
@ -35,9 +35,7 @@ function y_=irf(dr, e1, long_, drop_, replic, iorder)
y_=y_/replic;
end
options_.periods = old_iter;
% 01/18/02 MJ corrected for many lags
% 03/11/22 MJ input is now entire shock vector e1 (for orthogonalized
% IRFs)
% 03/11/22 MJ input is now entire shock vector e1 (for orthogonalized IRFs)