Added two new routines to rename name and tex name of a variable in a dynSeries object.

matlab/@dynSeries/rename.m

+function ts = rename(ts,old,new)
+
+% Copyright (C) 2013 Dynare Team
+%
+% This file is part of Dynare.
+%
+% Dynare is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version.
+%
+% Dynare is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with Dynare.  If not, see <http://www.gnu.org/licenses/>.
+
+if ~ischar(old) || ~ischar(new)
+    error(['dynSeries::rename: Input arguments ''' inputname(2) ''' and ''' inputname(3) '''  have to be strings!'])
+end
+    
+idname = strmatch(old,ts.name,'exact');
+
+if isempty(idname)
+    error(['dynSeries::rename: Variable ' old ' is unknown in dynSeries object ' inputname(1)  '!'])
+end
+
+ts.name(idname) = {new};
+
+%@test:1
+%$ t = zeros(8,1);
+%$ ts = dynSeries([transpose(1:5), transpose(6:10)],'1950q1',{'Output'; 'Consumption'}, {'Y_t'; 'C_t'});
+%$ try
+%$     ts = rename(ts,'Output','Production');
+%$     t(1) = 1;
+%$ catch
+%$     t = 0;
+%$ end
+%$
+%$ if length(t)>1
+%$     t(2) = dyn_assert(ts.freq,4);
+%$     t(3) = dyn_assert(ts.init.freq,4);
+%$     t(4) = dyn_assert(ts.init.time,[1950, 1]);
+%$     t(5) = dyn_assert(ts.vobs,2);
+%$     t(6) = dyn_assert(ts.nobs,5);
+%$     t(7) = dyn_assert(ts.name,{'Production'; 'Consumption'});
+%$     t(8) = dyn_assert(ts.tex,{'Y_t'; 'C_t'});
+%$ end
+%$
+%$ T = all(t);
+%@eof:1
+
+%@test:2
+%$ t = zeros(8,1);
+%$ ts = dynSeries([transpose(1:5), transpose(6:10)],'1950q1',{'Output'; 'Consumption'}, {'Y_t'; 'C_t'});
+%$ try
+%$     ts = ts.rename('Output','Production');
+%$     t(1) = 1;
+%$ catch
+%$     t = 0;
+%$ end
+%$
+%$ if length(t)>1
+%$     t(2) = dyn_assert(ts.freq,4);
+%$     t(3) = dyn_assert(ts.init.freq,4);
+%$     t(4) = dyn_assert(ts.init.time,[1950, 1]);
+%$     t(5) = dyn_assert(ts.vobs,2);
+%$     t(6) = dyn_assert(ts.nobs,5);
+%$     t(7) = dyn_assert(ts.name,{'Production'; 'Consumption'});
+%$     t(8) = dyn_assert(ts.tex,{'Y_t'; 'C_t'});
+%$ end
+%$
+%$ T = all(t);
+%@eof:2

matlab/@dynSeries/subsref.m

@@ -69,13 +69,16 @@ switch S(1).type
       case {'log','exp','ygrowth','qgrowth','ydiff','qdiff'}               % Give "dot access" to public methods.
         B = feval(S(1).subs,A);
       case {'save'}                                                        % Save dynSeries object on disk (default is a csv file). 
-        us = NaN;
+        B = NaN;
         if length(S)==2 && strcmp(S(2).type,'()')
             save(A,S(2).subs{:});
             S = shiftS(S);
         else
             save(A);
         end
+      case {'rename','tex_rename'}
+        B = feval(S(1).subs,A,S(2).subs{:});
+        S = shiftS(S);
       otherwise                                                            % Extract a sub-object by selecting one variable.
         ndx = strmatch(S(1).subs,A.name,'exact');
         if ~isempty(ndx)

matlab/@dynSeries/tex_rename.m

+function ts = tex_rename(ts,name,newtex)
+
+% Copyright (C) 2013 Dynare Team
+%
+% This file is part of Dynare.
+%
+% Dynare is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version.
+%
+% Dynare is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with Dynare.  If not, see <http://www.gnu.org/licenses/>.
+
+if ~ischar(name) || ~ischar(newtex)
+    error(['dynSeries::rename: Input arguments ''' inputname(2) ''' and ''' inputname(3) '''  have to be strings!'])
+end
+    
+idname = strmatch(name,ts.name,'exact');
+
+if isempty(idname)
+    error(['dynSeries::rename: Variable ' name ' is unknown in dynSeries object ' inputname(1)  '!'])
+end
+
+ts.tex(idname) = {newtex};
+
+%@test:1
+%$ t = zeros(8,1);
+%$ ts = dynSeries([transpose(1:5), transpose(6:10)],'1950q1',{'Output'; 'Consumption'}, {'Y_t'; 'C_t'});
+%$ try
+%$     ts = tex_rename(ts,'Output','\\Delta Y_t');
+%$     t(1) = 1;
+%$ catch
+%$     t = 0;
+%$ end
+%$
+%$ if length(t)>1
+%$     t(2) = dyn_assert(ts.freq,4);
+%$     t(3) = dyn_assert(ts.init.freq,4);
+%$     t(4) = dyn_assert(ts.init.time,[1950, 1]);
+%$     t(5) = dyn_assert(ts.vobs,2);
+%$     t(6) = dyn_assert(ts.nobs,5);
+%$     t(7) = dyn_assert(ts.name,{'Output'; 'Consumption'});
+%$     t(8) = dyn_assert(ts.tex,{'\\Delta Y_t'; 'C_t'});
+%$ end
+%$
+%$ T = all(t);
+%@eof:1
+
+%@test:2
+%$ t = zeros(8,1);
+%$ ts = dynSeries([transpose(1:5), transpose(6:10)],'1950q1',{'Output'; 'Consumption'}, {'Y_t'; 'C_t'});
+%$ try
+%$     ts = ts.tex_rename('Output','\\Delta Y_t');
+%$     t(1) = 1;
+%$ catch
+%$     t = 0;
+%$ end
+%$
+%$ if length(t)>1
+%$     t(2) = dyn_assert(ts.freq,4);
+%$     t(3) = dyn_assert(ts.init.freq,4);
+%$     t(4) = dyn_assert(ts.init.time,[1950, 1]);
+%$     t(5) = dyn_assert(ts.vobs,2);
+%$     t(6) = dyn_assert(ts.nobs,5);
+%$     t(7) = dyn_assert(ts.name,{'Output'; 'Consumption'});
+%$     t(8) = dyn_assert(ts.tex,{'\\Delta Y_t'; 'C_t'});
+%$ end
+%$
+%$ T = all(t);
+%@eof:2