diff --git a/matlab/@dynDate/colon.m b/matlab/@dynDate/colon.m deleted file mode 100644 index d1c7138b7..000000000 --- a/matlab/@dynDate/colon.m +++ /dev/null @@ -1,126 +0,0 @@ -function sp = colon(a,b) % --*-- Unitary tests --*-- - -%@info: -%! @deftypefn {Function File} {@var{sp} =} colon (@var{a},@var{b}) -%! @anchor{@dynDate/colon} -%! @sp 1 -%! Overloads the colon operator for the Dynare Dates class (@ref{dynDate}). Creates a @ref{dynDates} object. -%! @sp 2 -%! @strong{Inputs} -%! @sp 1 -%! @table @ @var -%! @item a -%! Dynare date object instantiated by @ref{dynDate}, initial date. -%! @item b -%! Dynare date object instantiated by @ref{dynDate}, last date. -%! @end table -%! @sp 1 -%! @strong{Outputs} -%! @sp 1 -%! @table @ @var -%! @item c -%! Dynare Dates object instantiated by @ref{dynDates}. -%! @end table -%! @sp 2 -%! @strong{This function is called by:} -%! @sp 2 -%! @strong{This function calls:} -%! @ref{dynDates}, @ref{@@dynDates/setFreq}, @ref{@@dynDates/setTime}, @ref{@@dynDates/setSize} -%! -%! @end deftypefn -%@eod: - -% Copyright (C) 2011-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 . - -if nargin~=2 - error('dynDate::colon: I need exactly two input arguments!') -end - -if ~( isa(a,'dynDate') && isa(b,'dynDate')) - error(['dynDate::colon: Input arguments ' inputname(1) 'and ' inputname(2) ' have to be a dynDate objects!']) -end - -if a.freq~=b.freq - error(['dynDate::colon: Input arguments ' inputname(1) 'and ' inputname(2) ' must have common frequency!']) -end - -if a>b - error(['dynDate::colon: ' inputname(1) ' must precede ' inputname(2) '!' ]) -end - -sp = dynDates(a); -n = b-a; -for t=1:n - a = +a; - sp = sp.append(a); -end - -%@test:1 -%$ % Define two dates -%$ date_1 = '1950Q2'; -%$ date_2 = '1951Q4'; -%$ -%$ % Define expected results. -%$ e.freq = 4; -%$ e.time = [1950 2; 1950 3; 1950 4; 1951 1; 1951 2; 1951 3; 1951 4]; -%$ -%$ % Call the tested routine. -%$ d1 = dynDate(date_1); -%$ d2 = dynDate(date_2); -%$ d3 = d1:d2; -%$ -%$ % Check the results. -%$ t(1) = dyn_assert(d3.time,e.time); -%$ t(2) = dyn_assert(d3.freq,e.freq); -%$ T = all(t); -%@eof:1 - -%@test:2 -%$ % Create an empty dynDate object -%$ date = dynDate(); -%$ -%$ % Define expected results. -%$ e.freq = 4; -%$ e.time = [1950 2; 1950 3; 1950 4; 1951 1; 1951 2; 1951 3; 1951 4]; -%$ -%$ % Call the tested routine. -%$ d = date('1950Q2'):date('1951Q4'); -%$ -%$ % Check the results. -%$ t(1) = dyn_assert(d.time,e.time); -%$ t(2) = dyn_assert(d.freq,e.freq); -%$ T = all(t); -%@eof:2 - -%@test:3 -%$ % Create an empty dynDate object for quaterly data -%$ qq = dynDate('Q'); -%$ -%$ % Define expected results. -%$ e.freq = 4; -%$ e.time = [1950 2; 1950 3; 1950 4; 1951 1; 1951 2; 1951 3; 1951 4]; -%$ -%$ % Call the tested routine. -%$ d = qq(1950,2):qq(1951,4); -%$ -%$ % Check the results. -%$ t(1) = dyn_assert(d.time,e.time); -%$ t(2) = dyn_assert(d.freq,e.freq); -%$ T = all(t); -%@eof:3 -