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

Added the possibility to populate an empty dynSeries object with a data file (csv, mat or m files). 

For instance, the following syntax is allowed:

dbload = dynSeries();
mydata = dbload('data_file.csv');
time-shift
Stéphane Adjemian (Charybdis) 2012-12-03 16:14:25 +01:00
parent 9783060575
commit e1527b215e
1 changed files with 40 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
matlab/@dynSeries/subsref.m
View File

@ -94,20 +94,24 @@ if length(S)==1 && isequal(S.type,'.')
return
end
if length(S)==1 && isequal(S.type,'()') % Extract a sub-object by selecting a sub-sample.
us = dynSeries();
if size(ts.data,2)>1
S.subs = [S.subs, ':'];
if length(S)==1 && isequal(S.type,'()')
if ischar(S.subs{1})
us = dynSeries(S.subs{1});
else
% Extract a sub-object by selecting a sub-sample.
if size(ts.data,2)>1
S.subs = [S.subs, ':'];
end
us.data = builtin('subsref', ts.data, S);
us.nobs = size(us.data,1);
us.vobs = ts.vobs;
us.freq = ts.freq;
us.time = builtin('subsref', ts.time, S);
us.init = ts.init+S.subs{1}(1);
us.name = ts.name;
us.tex = ts.tex;
return
end
us.data = builtin('subsref', ts.data, S);
us.nobs = size(us.data,1);
us.vobs = ts.vobs;
us.freq = ts.freq;
us.time = builtin('subsref', ts.time, S);
us.init = ts.init+S.subs{1}(1);
us.name = ts.name;
us.tex = ts.tex;
return
end
if (length(S)==2) && (isequal(S(1).subs,'init'))
@ -207,3 +211,26 @@ end
%$ t(5) = dyn_assert(a.init,e.init);
%$ T = all(t);
%@eof:3
%@test:4
%$ % Create an empty dynSeries object.
%$ dataset = dynSeries();
%$
%$ t = zeros(5,1);
%$
%$ try
%$ A = dataset('dynseries_test_data.csv');
%$ t(1) = 1;
%$ catch
%$ t = 0;
%$ end
%$
%$ % Check the results.
%$ if length(t)>1
%$ t(2) = dyn_assert(A.nobs,4);
%$ t(3) = dyn_assert(A.vobs,4);
%$ t(4) = dyn_assert(A.freq,4);
%$ t(5) = dyn_assert(A.init,dynDate('1990Q1'));
%$ end
%$ T = all(t);
%@eof:4