Skip to content
Snippets Groups Projects
Commit ab9b5120 authored by Stéphane Adjemian's avatar Stéphane Adjemian Committed by GitHub
Browse files

Merge pull request #1450 from JohannesPfeifer/var_list_problems

Make sure varlists are correctly updated after removal of doubly defi…
parents 502612a5 c373ed38
No related branches found
No related tags found
No related merge requests found
...@@ -33,8 +33,8 @@ function varlist = check_list_of_variables(options_, M_, varlist) ...@@ -33,8 +33,8 @@ function varlist = check_list_of_variables(options_, M_, varlist)
%get uniques %get uniques
[junk1,junk2,index_uniqes] = varlist_indices(varlist,M_.endo_names); [junk1,junk2,index_uniques] = varlist_indices(varlist,M_.endo_names);
varlist=varlist(index_uniqes,:); varlist=varlist(index_uniques,:);
msg = 0; msg = 0;
if options_.dsge_var && options_.bayesian_irf if options_.dsge_var && options_.bayesian_irf
......
...@@ -50,7 +50,8 @@ if size(varlist,1) == 0 ...@@ -50,7 +50,8 @@ if size(varlist,1) == 0
varlist = M_.endo_names(1:M_.orig_endo_nbr,:); varlist = M_.endo_names(1:M_.orig_endo_nbr,:);
end end
[i_var,nvar] = varlist_indices(varlist,M_.endo_names); [i_var,nvar,index_uniques] = varlist_indices(varlist,M_.endo_names);
varlist=varlist(index_uniques,:);
% number of variables % number of variables
endo_nbr = M_.endo_nbr; endo_nbr = M_.endo_nbr;
......
...@@ -38,7 +38,8 @@ if size(varlist,1) == 0 ...@@ -38,7 +38,8 @@ if size(varlist,1) == 0
varlist = M_.endo_names(1:M_.orig_endo_nbr,:); varlist = M_.endo_names(1:M_.orig_endo_nbr,:);
end end
[i_var,nvar] = varlist_indices(varlist,M_.endo_names); [i_var,nvar,index_uniques] = varlist_indices(varlist,M_.endo_names);
varlist=varlist(index_uniques,:);
% number of variables % number of variables
endo_nbr = M_.endo_nbr; endo_nbr = M_.endo_nbr;
......
...@@ -44,7 +44,8 @@ if size(varlist,1) == 0 ...@@ -44,7 +44,8 @@ if size(varlist,1) == 0
varlist = M_.endo_names(1:M_.orig_endo_nbr,:); varlist = M_.endo_names(1:M_.orig_endo_nbr,:);
end end
[i_var,nvar] = varlist_indices(varlist,M_.endo_names); [i_var,nvar,index_uniques] = varlist_indices(varlist,M_.endo_names);
varlist=varlist(index_uniques,:);
% number of variables % number of variables
endo_nbr = M_.endo_nbr; endo_nbr = M_.endo_nbr;
......
...@@ -45,7 +45,8 @@ if size(varlist,1) == 0 ...@@ -45,7 +45,8 @@ if size(varlist,1) == 0
varlist = M_.endo_names(1:M_.orig_endo_nbr,:); varlist = M_.endo_names(1:M_.orig_endo_nbr,:);
end end
[i_var,nvar] = varlist_indices(varlist,M_.endo_names); [i_var,nvar,index_uniques] = varlist_indices(varlist,M_.endo_names);
varlist=varlist(index_uniques,:);
% number of variables % number of variables
endo_nbr = M_.endo_nbr; endo_nbr = M_.endo_nbr;
......
...@@ -56,7 +56,8 @@ if size(var_list,1) == 0 ...@@ -56,7 +56,8 @@ if size(var_list,1) == 0
var_list = M_.endo_names(1:M_.orig_endo_nbr, :); var_list = M_.endo_names(1:M_.orig_endo_nbr, :);
end end
[i_var,nvar] = varlist_indices(var_list,M_.endo_names); [i_var,nvar,index_uniques] = varlist_indices(var_list,M_.endo_names);
var_list=var_list(index_uniques,:);
iter_ = max(options_.periods,1); iter_ = max(options_.periods,1);
if M_.exo_nbr > 0 if M_.exo_nbr > 0
......
function [i_var,nvar,index_uniques] = varlist_indices(sublist,list) function [i_var,nvar,index_uniques] = varlist_indices(sublist,list)
% function [i_var,nvar] = varlist_indices(sublist,list) % function [i_var,nvar,index_uniques] = varlist_indices(sublist,list)
% returns the indices of a list of endogenous variables % returns the indices of a list of endogenous variables
% %
% INPUT % INPUT
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment