chain.m 1.56 KB
Newer Older
1 2 3 4
function q = chain(o, p)  % --*-- Unitary tests --*--

% Chains two dseries objects.
%
Stéphane Adjemian's avatar
Stéphane Adjemian committed
5
% INPUTS
6 7 8
% - o     [dseries]
% - p     [dseries]
%
Stéphane Adjemian's avatar
Stéphane Adjemian committed
9
% OUTPUTS
10 11
% - q     [dseries]
%
Stéphane Adjemian's avatar
Stéphane Adjemian committed
12
% REMARKS
13 14
% The two dseries objects must have common frequency and the same number of variables. Also the
% two samples must overlap.
15

16
% Copyright (C) 2014-2017 Dynare Team
17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
%
% 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/>.

33 34
q = copy(o);
q.chain_(p);
35 36 37 38 39 40 41 42 43 44 45 46

%@test:1
%$ try
%$     ts = dseries([1; 2; 3; 4],dates('1950Q1')) ;
%$     us = dseries([3; 4; 5; 6],dates('1950Q3')) ;
%$     vs = chain(ts,us);
%$     t(1) = 1;
%$ catch
%$     t(1) = 0;
%$ end
%$
%$ if t(1)
47 48 49 50 51 52 53 54
%$     t(2) = dassert(vs.freq, 4);
%$     t(3) = dassert(vs.init.freq, 4);
%$     t(4) = dassert(vs.init.time, [1950, 1]);
%$     t(5) = dassert(vs.vobs, 1);
%$     t(6) = dassert(vs.nobs, 6);
%$     t(7) = isequal(vs.data, transpose(1:6));
%$     t(8) = isequal(ts.data, transpose(1:4));
%$     t(9) = isequal(ts.init.time, [1950, 1]);
55 56 57 58
%$ end
%$
%$ T = all(t);
%@eof:1