samer@13: % shiftr - shift array columns right one
samer@13: %
samer@13: % shiftr :: [[N,M]] -> [[N,M]].
samer@13: %
samer@13: % Shift array elements right one, padding start with zeros.
samer@13: % eg [ 1 2 3 4 ] --> [ 0 1 2 3 ]
samer@4: function y=shiftr(x)
samer@13: 	if isvector(x)
samer@13: 		y = [ 0; x(1:end-1) ];
samer@13: 	else
samer@13: 		y = [ zeros(size(x,1),1), x(:,1:size(x,2)-1) ];
samer@13: 	end
samer@13: end