Added 'Y' or 'A' for yearly data in dynDate class.
Follwing expressions are equivalent: a = dynDate('2009'); a = dynDate('2009y'); a = dynDate('2009a'); a = dynaDate(2009);time-shift
parent
4dced05d1d
commit
0f10880d07
|
@ -70,15 +70,24 @@ date = class(date,'dynDate');
|
||||||
|
|
||||||
switch nargin
|
switch nargin
|
||||||
case 0
|
case 0
|
||||||
% Return an empty dynDate object.
|
% Return an empty dynDate object (without specified frequency).
|
||||||
return
|
return
|
||||||
case 1
|
case 1
|
||||||
if ischar(a)% Weekly, Monthly or Quaterly data.
|
if ischar(a)% Weekly, Monthly or Quaterly data.
|
||||||
a = upper(a);
|
a = upper(a);
|
||||||
if length(a)>1
|
if length(a)>1
|
||||||
|
yearly = findstr('Y',a);
|
||||||
|
if isempty(yearly)
|
||||||
|
yearly = findstr('A',a);
|
||||||
|
end
|
||||||
quaterly = findstr('Q',a);
|
quaterly = findstr('Q',a);
|
||||||
monthly = findstr('M',a);
|
monthly = findstr('M',a);
|
||||||
weekly = findstr('W',a);
|
weekly = findstr('W',a);
|
||||||
|
if ~isempty(yearly)
|
||||||
|
date.freq = 1;
|
||||||
|
date.time(1) = str2num(a(1:yearly-1));
|
||||||
|
date.time(2) = 1;
|
||||||
|
end
|
||||||
if ~isempty(quaterly)
|
if ~isempty(quaterly)
|
||||||
date.freq = 4;
|
date.freq = 4;
|
||||||
date.time(1) = str2num(a(1:quaterly-1));
|
date.time(1) = str2num(a(1:quaterly-1));
|
||||||
|
@ -94,9 +103,9 @@ switch nargin
|
||||||
date.time(1) = str2num(a(1:weekly-1));
|
date.time(1) = str2num(a(1:weekly-1));
|
||||||
date.time(2) = str2num(a(weekly+1:end));
|
date.time(2) = str2num(a(weekly+1:end));
|
||||||
end
|
end
|
||||||
if isempty(quaterly) && isempty(monthly) && isempty(weekly)
|
if isempty(yearly) && isempty(quaterly) && isempty(monthly) && isempty(weekly)
|
||||||
if any(isletter(a))
|
if isaletter(a)
|
||||||
error('dynDate:: Using a string as an input argument, I can only handle weekly (W), monthly (M) or quaterly (Q) data!');
|
error('dynDate:: Using a string as an input argument, I can only handle weekly (W), monthly (M), quaterly (Q) or yearly (Y, A), data!');
|
||||||
else
|
else
|
||||||
% Yearly data declared with a string
|
% Yearly data declared with a string
|
||||||
date.freq = 1;
|
date.freq = 1;
|
||||||
|
@ -105,8 +114,9 @@ switch nargin
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
|
% Return an empty dynDate object (with a specified frequency).
|
||||||
switch a
|
switch a
|
||||||
case 'Y'
|
case {'Y','A'}
|
||||||
date.freq = 1;
|
date.freq = 1;
|
||||||
case 'Q'
|
case 'Q'
|
||||||
date.freq = 4;
|
date.freq = 4;
|
||||||
|
@ -115,9 +125,7 @@ switch nargin
|
||||||
case 'W'
|
case 'W'
|
||||||
date.freq = 52;
|
date.freq = 52;
|
||||||
otherwise
|
otherwise
|
||||||
error(['dynDate:: With one string argument of length one, ' ...
|
error(['dynDate:: With one string argument of length one, you must provide one of weekly (''W''), monthly (''M''), quaterly (''Q'') or yearly (''Y'').']);
|
||||||
'you must provide one of weekly (''W''), monthly (''M''), ' ...
|
|
||||||
'quaterly (''Q'') or yearly (''Y'').']);
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
elseif isa(a,'dynDate') % If input argument is a dynDate object then do a copy.
|
elseif isa(a,'dynDate') % If input argument is a dynDate object then do a copy.
|
||||||
|
@ -160,6 +168,8 @@ end
|
||||||
%$ date_3 = '1950m10';
|
%$ date_3 = '1950m10';
|
||||||
%$ date_4 = '1950w50';
|
%$ date_4 = '1950w50';
|
||||||
%$ date_5 = '1950';
|
%$ date_5 = '1950';
|
||||||
|
%$ date_6 = '1967y';
|
||||||
|
%$ date_7 = '2009A';
|
||||||
%$
|
%$
|
||||||
%$ % Define expected results.
|
%$ % Define expected results.
|
||||||
%$ e_date_1 = [1950 1];
|
%$ e_date_1 = [1950 1];
|
||||||
|
@ -172,6 +182,10 @@ end
|
||||||
%$ e_freq_4 = 52;
|
%$ e_freq_4 = 52;
|
||||||
%$ e_date_5 = [1950 1];
|
%$ e_date_5 = [1950 1];
|
||||||
%$ e_freq_5 = 1;
|
%$ e_freq_5 = 1;
|
||||||
|
%$ e_date_6 = [1967 1];
|
||||||
|
%$ e_freq_6 = 1;
|
||||||
|
%$ e_date_7 = [2009 1];
|
||||||
|
%$ e_freq_7 = 1;
|
||||||
%$
|
%$
|
||||||
%$ % Call the tested routine.
|
%$ % Call the tested routine.
|
||||||
%$ d1 = dynDate(date_1);
|
%$ d1 = dynDate(date_1);
|
||||||
|
@ -179,6 +193,8 @@ end
|
||||||
%$ d3 = dynDate(date_3);
|
%$ d3 = dynDate(date_3);
|
||||||
%$ d4 = dynDate(date_4);
|
%$ d4 = dynDate(date_4);
|
||||||
%$ d5 = dynDate(date_5);
|
%$ d5 = dynDate(date_5);
|
||||||
|
%$ d6 = dynDate(date_6);
|
||||||
|
%$ d7 = dynDate(date_7);
|
||||||
%$
|
%$
|
||||||
%$ % Check the results.
|
%$ % Check the results.
|
||||||
%$ t(1) = dyn_assert(d1.time,e_date_1);
|
%$ t(1) = dyn_assert(d1.time,e_date_1);
|
||||||
|
@ -191,6 +207,10 @@ end
|
||||||
%$ t(8) = dyn_assert(d3.freq,e_freq_3);
|
%$ t(8) = dyn_assert(d3.freq,e_freq_3);
|
||||||
%$ t(9) = dyn_assert(d4.freq,e_freq_4);
|
%$ t(9) = dyn_assert(d4.freq,e_freq_4);
|
||||||
%$ t(10)= dyn_assert(d5.freq,e_freq_5);
|
%$ t(10)= dyn_assert(d5.freq,e_freq_5);
|
||||||
|
%$ t(11)= dyn_assert(d6.freq,e_freq_6);
|
||||||
|
%$ t(12)= dyn_assert(d7.freq,e_freq_7);
|
||||||
|
%$ t(13)= dyn_assert(d6.time,e_date_6);
|
||||||
|
%$ t(14)= dyn_assert(d7.time,e_date_7);
|
||||||
%$ T = all(t);
|
%$ T = all(t);
|
||||||
%@eof:1
|
%@eof:1
|
||||||
|
|
||||||
|
@ -199,14 +219,17 @@ end
|
||||||
%$ qq = dynDate('Q');
|
%$ qq = dynDate('Q');
|
||||||
%$ mm = dynDate('M');
|
%$ mm = dynDate('M');
|
||||||
%$ ww = dynDate('W');
|
%$ ww = dynDate('W');
|
||||||
|
%$ yy = dynDate('Y');
|
||||||
%$
|
%$
|
||||||
%$ % Check the results.
|
%$ % Check the results.
|
||||||
%$ t(1) = dyn_assert(qq.freq,4);
|
%$ t(1) = dyn_assert(qq.freq,4);
|
||||||
%$ t(2) = dyn_assert(mm.freq,12);
|
%$ t(2) = dyn_assert(mm.freq,12);
|
||||||
%$ t(3) = dyn_assert(ww.freq,52);
|
%$ t(3) = dyn_assert(ww.freq,52);
|
||||||
%$ t(4) = dyn_assert(all(isnan(qq.time)),1);
|
%$ t(4) = dyn_assert(yy.freq,1);
|
||||||
%$ t(5) = dyn_assert(all(isnan(mm.time)),1);
|
%$ t(5) = dyn_assert(all(isnan(qq.time)),1);
|
||||||
%$ t(6) = dyn_assert(all(isnan(ww.time)),1);
|
%$ t(6) = dyn_assert(all(isnan(mm.time)),1);
|
||||||
|
%$ t(7) = dyn_assert(all(isnan(ww.time)),1);
|
||||||
|
%$ t(8) = dyn_assert(all(isnan(yy.time)),1);
|
||||||
%$ T = all(t);
|
%$ T = all(t);
|
||||||
%@eof:2
|
%@eof:2
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue