diff --git a/src/utilities/from/from.m b/src/utilities/from/from.m index 76874bc3725933e6f2c761f37ae626bef0bb443d..944b2b56920410c219dde3de3109e26a625298c3 100644 --- a/src/utilities/from/from.m +++ b/src/utilities/from/from.m @@ -423,72 +423,73 @@ if ~isempty(idv) end i = 0; +return %@test:1 -%$ try -%$ y = dseries(zeros(400,1),dates('1950Q1')) ; -%$ v = dseries(randn(400,1),dates('1950Q1')) ; -%$ u = dseries(randn(400,1),dates('1950Q1')) ; -%$ from 1950Q2 to 2049Q4 do y(t) = (1+.01*u(t))*y(t-1) + v(t) -%$ t(1) = 1; -%$ catch -%$ t(1) = 0; -%$ end -%$ -%$ T = all(t); +try + y = dseries(zeros(400,1),dates('1950Q1')) ; + v = dseries(randn(400,1),dates('1950Q1')) ; + u = dseries(randn(400,1),dates('1950Q1')) ; + from 1950Q2 to 2049Q4 do y(t) = (1+.01*u(t))*y(t-1) + v(t) + t(1) = 1; +catch + t(1) = 0; +end + +T = all(t); %@eof:1 %@test:2 -%$ try -%$ y = dseries(zeros(400,1),dates('1950Q1')) ; -%$ v = dseries(randn(400,1),dates('1950Q1')) ; -%$ u = dseries(randn(400,1),dates('1950Q1')) ; -%$ from 1950Q2 to 2049Q3 do y(t) = (1+.01*u(t))*y(t+1) + v(t) -%$ t(1) = 0; -%$ catch -%$ t(1) = 1; -%$ end -%$ -%$ T = all(t); +try + y = dseries(zeros(400,1),dates('1950Q1')) ; + v = dseries(randn(400,1),dates('1950Q1')) ; + u = dseries(randn(400,1),dates('1950Q1')) ; + from 1950Q2 to 2049Q3 do y(t) = (1+.01*u(t))*y(t+1) + v(t) + t(1) = 0; +catch + t(1) = 1; +end + +T = all(t); %@eof:2 %@test:3 -%$ try -%$ y = dseries(zeros(400,1),dates('1950Q1')) ; -%$ v = dseries(randn(400,1),dates('1950Q1')) ; -%$ u = dseries(randn(400,1),dates('1950Q1')) ; -%$ from 1950Q2 to 2049Q4 do y(t) = v(t) -.5*v(t-1); -%$ t(1) = 1; -%$ catch -%$ t(1) = 0; -%$ end -%$ -%$ T = all(t); +try + y = dseries(zeros(400,1),dates('1950Q1')) ; + v = dseries(randn(400,1),dates('1950Q1')) ; + u = dseries(randn(400,1),dates('1950Q1')) ; + from 1950Q2 to 2049Q4 do y(t) = v(t) -.5*v(t-1); + t(1) = 1; +catch + t(1) = 0; +end + +T = all(t); %@eof:3 %@test:4 -%$ try -%$ y = dseries(zeros(400,1),dates('1950Q1')) ; -%$ v = dseries(randn(400,1),dates('1950Q1')) ; -%$ u = dseries(randn(400,1),dates('1950Q1')) ; -%$ from 1950Q2 to 2049Q4 do y(t) = 2*((v(t) -.5*v(t-1))>0)-1; -%$ t(1) = 1; -%$ catch -%$ t(1) = 0; -%$ end -%$ -%$ T = all(t); +try + y = dseries(zeros(400,1),dates('1950Q1')) ; + v = dseries(randn(400,1),dates('1950Q1')) ; + u = dseries(randn(400,1),dates('1950Q1')) ; + from 1950Q2 to 2049Q4 do y(t) = 2*((v(t) -.5*v(t-1))>0)-1; + t(1) = 1; +catch + t(1) = 0; +end + +T = all(t); %@eof:4 %@test:5 -%$ try -%$ y = dseries(zeros(4000,1),dates('1950Q1')) ; -%$ v = dseries(randn(4000,1),dates('1950Q1')) ; -%$ u = dseries(randn(4000,1),dates('1950Q1')) ; -%$ from 1950Q2 to 2949Q4 do y(t) = y(t-1)*(2*((v(t) -.5*v(t-1))>u(t))-1)+u(t); %plot(y) -%$ t(1) = 1; -%$ catch -%$ t(1) = 0; -%$ end -%$ -%$ T = all(t); -%@eof:5 +try + y = dseries(zeros(4000,1),dates('1950Q1')) ; + v = dseries(randn(4000,1),dates('1950Q1')) ; + u = dseries(randn(4000,1),dates('1950Q1')) ; + from 1950Q2 to 2949Q4 do y(t) = y(t-1)*(2*((v(t) -.5*v(t-1))>u(t))-1)+u(t); %plot(y) + t(1) = 1; +catch + t(1) = 0; +end + +T = all(t); +%@eof:5 \ No newline at end of file