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