lagize

 lagged = lagize(datacellofwindows,nlags,delta)

0001 function lagged = lagize(data,nlags,delta)
0002 % lagged = lagize(datacellofwindows,nlags,delta)
0003 if nargin < 3
0004   delta = 1;
0005 end
0006 
0007 nlags = nlags + 1;
0008 
0009 [r,c] = size(data);
0010 lagged = cell(r,c);
0011 for ri = 1:r
0012   for ci = 1:c
0013     datacols = data{ri,ci};
0014     ncols = size(datacols,2);
0015     starts = [0:nlags-1]*delta+1;
0016     laggedWindow = [];
0017     for i = starts
0018       laggedWindow = [laggedWindow; datacols(:,i:(ncols-starts(end)+i))];
0019     end
0020     lagged{ri,ci} = laggedWindow;
0021   end
0022 end